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