Guardar un registro en una hoja con transponer

1) Diseñar una hoja de trabajo como se muestra.

2) Insertar una autoforma.

3) Escribimos el código en Módulo y asignamos macro.

Sub GuardarUnRegistro()

'Seleccionamos el rango a desplazar hacia abajo
    Hoja2.Range("A7:D7").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Seleccionamos los datos a copiar
    Hoja2.Range("B1:B4").Select
    Selection.Copy
'Seleccionamos la celda A5
    Hoja2.Range("A7").Select
'Seleccionamos pegar datos como TRASPONER
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
'Selecionamos datos capturados
    Hoja2.Range("B1:B4").Select
    Application.CutCopyMode = False
'Borramos contenido
    Selection.ClearContents
'Nos posicionamos en la celda B1
    Range("B1").Select
End Sub

Guardar registro con TRANSPONER vba