Vba - copiar e colar linha inteira em outra planilha

[gilson_bsb]

Pessoal, estou com uma dúvida simples mas não consigo desenvolve-la, o código abaixo seleciona uma linha que tem dados semelhantes na primeira coluna, gostaria apenas de pegar estes dados e copiar a linha inteira para outra planilha:

 

Public Sub VerificaAtraso()    Dim Col As Integer    Dim r As Long    Dim C As Range    Dim N As Long    Dim V As Variant    Dim Rng As Range    On Error GoTo EndMacro    Application.ScreenUpdating = False    Application.Calculation = xlCalculationManual    Col = ActiveCell.Column    If Selection.Rows.Count > 1 Then        Set Rng = Selection    Else        Set Rng = ActiveSheet.UsedRange.Rows    End If    N = 0    For r = Rng.Rows.Count To 1 Step -1        V = Rng.Cells(r, 1).Value        If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then            Rng.Rows(r).Interior.ColorIndex = 36            Rng.Rows(r).Select            N = N + 1        End If              ' Este é o trecho que estava tentando desenvolver para colar a linha selecionada em Rng.Row(r)            Selection.Copy            Sheets("Plan2").Select ' Chama a "Plan2"            'Range("A1").Select 'Seleciona a Linha 1 Da primeira Coluna            ActiveSheet.Paste  'Cola os valores selecionados da outra planilha          EndMacro:    Application.ScreenUpdating = True    Application.Calculation = xlCalculationAutomaticEnd Sub

 

 

Exemplo da planilha, os dados repetidos da primeira coluna são selecionados de amarelo:

 

25332 JOAO 456325 45

25332 JOAO 456325 45

45333 MARIA 45689 35

48632 JOSE 45899 32

12356 CARLOS 32565 25

12356 CARLOS 32565 25

 

Abraço