Copie o intervalo especificado na Sheet1 e em seguida, cole-o na primeira linha vazia após a última entrada na coluna A da Plan2:
Sub CopyRangeToNextSheet()
Worksheets("Sheet1").Range("A5:D5").Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End Sub