Macro to auto select adjacent cell then cell underneath

Hi strud
maybe so

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 Then Exit Sub
If Target.Column = 1 Then Target.Next.Select Else Target(2, 0).Select
End Sub