Finalmente lo he resuelto de la siguiente manera:
Private Sub CommandButton1_Click()
Rem alta
Rows("11:11").Select
Selection.Cut
Dim UltimaFila As Long 'variable en donde almacenaremos el nro de la utlima fila
'esta es la instrucción que cumple con el objetivo:
UltimaFila = Cells(65536, 2).End(xlUp).Row + 1
ActiveSheet.Select
ActiveSheet.Cells(UltimaFila, 1).Select
ActiveSheet.Paste
Gracias.Saludos