Bom dia!!

Demostre sua dúvida em arquivo modelo compactado!!

Att

Veja este código, copia da plan1 para a plan2 (basta corrigir os nomes)

Sub Copiar_Dados_GT()
Dim Celula As Range
Dim i As Integer
i = 1
For Each Celula In Sheets("Plan1").UsedRange
    If Not IsEmpty(Celula) Then
        Sheets("Plan2").Cells(i, "A").Value = Celula.Value
        i = i + 1
    End If
Next Celula
End Sub

Bom dia alexandrevba tudo bem?
Obrigado pela atenção mas com a macro do colega Gilmar já foi suficiente para resolver meu problema.
Muito obrigado Gilmar Tsalikis (Tsa)

Abraços

Fabio sp

Bom dia!!

Fabio, o que importa, é que o problema foi resolvido....precisando volte a nos procurar aqui no fórum!

gtsalikis meus parabéns!!!

Att