[Spirosgr]

Καλημέρα
Μάνο, καλώς ήλθες στο ms-office.gr.
Υπάρχουν διάφορα πράγματα, που μπορεί να κάνει κανείς,
για να έχει ένα παρόμοιο ή ίδιο αποτέλεσμα με το ζητούμενο.
Σημείωση:
Στα παραδείγματα, όπου Sheet1 το κωδικό όνομα του φύλλου.

1. Στο ThisWorkbook (ΑυτόΤοΒιβλίοΕργασίας) συμβάν Open:
Μπορούμε να αποκλείσουμε τον χρήστη, από το να δουλεύει σε γραμμές κάτω από την 10.

Private Sub Workbook_Open()
    Sheet1.ScrollArea = "a1:w10"
End Sub

Αντικαταστήστε, το "a1:w10" με την περιοχή που θέλετε.

ή

2. Στο Φύλλο που θέλουμε να συμβαίνει ο αυτοματισμός συμβάν SelectionChange:
Όταν φτάνουμε στην 11 γραμμή, μας «πετάει» στην γραμμή 1, της επόμενης στήλης.
Μπορούμε να δουλέψουμε κανονικά, από την γραμμή 12 και κάτω.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub
    If Target.Row = 11 Then Target.Offset(-10, 1).Select
End Sub

ή

3. Στο Φύλλο που θέλουμε να συμβαίνει ο αυτοματισμός συμβάν SelectionChange:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub
    Dim i As Long
    i = Target.Row - 1
    If Target.Row > 10 Then Target.Offset(-i, 1).Select
End Sub

Όταν επιλέγουμε οποιαδήποτε γραμμή κάτω από την 11,
μας «πετάει» στην γραμμή 1, της επόμενης στήλης.
Δεν μπορούμε να δουλέψουμε, από την γραμμή 10 και κάτω.

Συμπληρωματικά:
Μπορούμε ακόμα, να έχουμε συνδυασμό, του κώδικα 1 και 2.
Στον 1 αλλάξτε το "a1:w10" σε "a1:w11" και έχουμε:
Αποκλειστικά εργασία στις 10 πρώτες γραμμές και αυτόματη αλλαγή,
σε επόμενη στήλη γραμμή 1.