Assumindo que as duas planilhas estão no mesmo arquivo, expliquei os passos no código:
Sub copy-paste()
Dim p1 As Worksheet
Dim p2 As Worksheet
Dim itens As Range
Dim linha As Long
' Definir as planilhas P1 e P2
Set p1 = ThisWorkbook.Sheets("P1")
Set p2 = ThisWorkbook.Sheets("P2")
' Copiar os 20 itens da P1 para a P2
linha = p2.Cells(p2.Rows.Count, "A").End(xlUp).Row + 1 ' achar próxima linha vazia da P2 (na primeira coluna, no caso a coluna "A")
Set itens = p1.Range("A1:A20") ' selecionar os próximos 20 itens da P1
itens.Copy p2.Cells(linha, "A") ' copiar os itens para a próxima linha vazia na coluna A da P2
' limpar "ctrl+c"'
Application.CutCopyMode = False
End Sub