Excel vba desplazar celda

[Monimo]

Prueba con esto en tu hoja...copia y pega esto sobre la hoja en la q insertas los datos...yo estoy tomando por default q son las columnas 1 y 2 donde insertas los datos... Haz la prueba en una hoja vacia primero si quieres para q veas q es lo que hace.....


Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Then Exit Sub

On Error GoTo ErrHandler
Application.EnableEvents = False
If Target.Column = 2 Then
Range("A1:B1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If
ErrHandler:
Application.EnableEvents = True
End Sub