You insert this in the sheet module.
If you open the workbook, right click on the sheet tab where the data is stored, then press "View code" in the menu that appears, here you insert the code.
When some data is entered into column a, it automatically selects the next cell when data is inserted into a cell, try messing around with it and test if it does as required.
Here's the revised code
Sub Worksheet_SelectionChange(ByVal target As Range)
If Not target.Column <> 1 Then
Application.EnableEvents = False
target.Offset(1, 0).Select
Application.EnableEvents = True
End If
End Sub
Bookmarks