Zeile löschen verhindern

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 6)  "Testeintrag" Then Application.Undo
End Sub

Nun meine simple Frage, da ich noch immer ein VBA-Greenhorn bin: Ich möchte Zeile 1 bis Zeile 45 schützten, indem ich in Spalte F bei diesen Zeilen jeweils "Testeintrag" reinschreibe und die Spalte ausblende. Dazu muss ich ja nicht die 2. Zeile des Codes 45 mal kopieren. Man muss wohl eine Schlaufe definieren, aber wie muss diese definiert sein?
Danke und Gruss
Ben