If you enter data across the worksheet press tab, when you have entered the
data in column F press the Enter key. Check also Tools | Options |Edit that
you have selected Down in the Move selection after Enter. Does this work for
you?
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column >= 6 Then ActiveCell.Offset(, -ActiveCell.Column +
1).Select
' If ActiveCell.Column >= 6 Then ActiveCell.Offset(-1, -ActiveCell.Column +
1).Select ' if u want same row
End Sub