Excel vba desplazar celda

[josenie]

Hola, tengo dos columnas donde tengo que ir poniendo unos datos, y me gustaria hacer que cada vez que acabara de poner los datos en esa fila, se insertaran celdas vacias solo en esas dos columnas y que los datos se movieran hacia abajo,para ir haciendo la lista cada vez.
Alguna forma facil de hacerlo?
gracias.

[Monimo]

pues puedes hacer un formulario donde ingreses esos dos datos aprietes un boton y cuando termine de insertarlos en la hoja pues q la misma macro inserte las celdas...

[josenie]

No quiero hacer un formulario.
quiero que cuando mueva con la flecha derecha hacia otra celda, en la que ha dejado de ser activa se le inserte una celda vacia
gracias por la respuesta

[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

[josenie]

muxas gracias monimo
me has ayudado mucho.
Te debo una.!!!