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 Verifica() 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® 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 = xlCalculationAutomatic End 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