Micro working in multiple cells

I needed a micro to use one cell to enter dates and move it over to the right everytime I entered a new date. I have a micro that does that for me but what I need it to do is to be able to go to any cell in column A from 1 to 10
enter date in A1 or A10 and have the date move over: example if A1 the date moves to B1 and so on. In A10 enter date and move to B10 and so on. This micro only lets me pick one cell. I want to be able to do it from multiple cells.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$2" Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Insert Shift:=xlShiftToRight, CopyOrigin:=Target
Application.EnableEvents = True
End If
End If

End Sub

Try with this code:

Please Login or Register  to view this content.

Regards,
Antonio

Jalicea,

Please read the Forum Rules and then wrap your code with Code Tags.

Sorry,
Thanks

What I done is, I CHANGE THE STARTING COLUMN AND CELL, BUT IT STILL WOKED. The problem comes if a mistake happens the micro stops working . Also I added a =CountA and it stops counting after I enter in eorror a date.If I ente a date it moves over but the mico stops working a count. I tryed $ signs but it does not hold it. What mus I do?