Siz sormadan ben ekleyeyim yinede.
Belirli satırdan sonrası için ise alttaki kodu kullanın moduldeki ile değiştirip.
Daha doğrusu modül kodu olarak bu daha iyi.

Public hedef As Range



Sub Ac()

    Application.OnKey "{TAB}", "Test"

End Sub



Sub Kapat()

    If ActiveSheet.name = "Sayfa1" Then hedef.Offset(0, 1).Select

    Application.OnKey "{TAB}"

End Sub



Sub Test()

    If ActiveSheet.name = "Sayfa1" Then

        If (hedef.Column = 1 Or hedef.Column = 6) And hedef.row > 1 Then

           If hedef.Value = "" Then

              hedef.Select

           Else

              hedef.Offset(0, 1).Select

           End If

        Else

            Kapat

        End If

    End If

End Sub