EXCEL copiar y pegar en la ultima celda disponible

[Omura]

podrías usar algo como esto...

Sub GuardarRegistro()
Range("A1:C1").Select
Selection.Copy
Sheets("Registro").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("MiniForm").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

Registro seria el nombre de la hoja donde se almacenarían los datos a guardar.
MiniForm seria el nombre de la hoja donde tendrías tu miniformulario.

lo único que para que funcione tendrías que crear la hoja Registro mas o menos de la siguiente forma...

1.......A............... B...................C
2[...................Registro.......................] (combinar celda)
3..Nombre........Hora........Comentarios
4....(aquí se irían grabando los datos de forma automática)
5 ...
6 ...