Used this for creating an inventory spreadsheet to automatically start a new line once everything for one item had been scanned.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Anytime the active cell is in Column 5 (E in this case)
If Target.Column = 5 Then
'This would make it do something based on a single cell being selected
' If Target.Address = Range("E:1").Address Then
'This moves the active cell 1 row down and 4 to the left be careful if it cannot move that far you will get an error message.
ActiveCell.Offset(1, -4).Select
End If
End Sub
