Hola:

Funciona solo si las 2 primeras columnas de la hoja de destino son iguales, alguna sugerencia?

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Range("E5:E29").Copy
Sheets("REGISTRO").Range("A2").End(xlToRight).Offset(0, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Slds