范围联盟不添加额外的范围到现有的范围 – Excel VBA

我试图在两个不同的时刻将整行添加到一个范围，在第一个for each行添加完美，然而在第二个for each值不被添加到范围。 我不明白为什么，有人能帮我吗？

PS：我执行了一个debugging，条件是linha.value ="CRDI"被执行，并且"Set DadosCopiados = Union(DadosCopiados, linha.EntireRow)"被执行。 但是这些值不会被添加。

这不是完整的代码。

 Dim DadosCopiados As Range For Each linha In FolhaOrigem.Range(Col_Letter & "2:" & Col_Letter & UltimaLinhaOrigem) count = count + 1 If (linha.Value Like "17*") Then If (FolhaOrigem.Range(Col_Letter2 & count).Value <> "E") Then If DadosCopiados Is Nothing Then Set DadosCopiados = linha.EntireRow Else Set DadosCopiados = Union(DadosCopiados, linha.EntireRow) End If End If End If Next linha For Each linha In FolhaOrigem.Range(Col_Letter3 & "2:" & Col_Letter3 & UltimaLinhaOrigem) If (linha.Value = "CRDI" Or linha.Value = "GARP") Then If DadosCopiados Is Nothing Then Set DadosCopiados = linha.EntireRow Else 'line below is not adding new range to existing one Set DadosCopiados = Union(DadosCopiados, linha.EntireRow) End If End If Next linha