Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" and Target.value <>"" Then Target.Offset(1, 0).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If Target.Value <> "" Then
Target.Offset(1, 0).Select
Else
Target.Select
End If
End If
End Sub