Range Union不向现有范围添加其他范围 - Excel VBA

Question

我尝试在两个不同的时刻将整行添加到一个范围，在第一个for each中，该行被完美添加但是在第二个for each中没有添加值到范围。我不明白为什么，有人可以帮助我吗？

PS：我执行了调试，条件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