Excel VBA - Encontrar última célula preenchida e duplicar linha

[KaKaBeCuDo]

Bom Dia!!

 

Como faço uma Sub para encontrar a última linha preenchida na Coluna A e duplicar essa linha para a linha abaixo, no caso linha 21?

 

[Muca Costa]

Sub Duplica()
    Dim P As String
    With ActiveSheet
        P = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Range("A" & P).Select
    Selection.Copy
    Range("A" & P + 1).Select
    ActiveSheet.Paste
    Range("A" & P + 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[KaKaBeCuDo]

@Muca Costa Muito Obrigado.... Funcionou!!