Range - Syntax ?

Sheets("Lehrerliste").Range(Cells(1, 1), Cells(irowk, 1)).Select

Weiters bin ich mir noch unsicher über die Formulierung

ActiveWorkbook.Names.Add Name:="Lehrerliste", RefersToR1C1:="=Lehrerliste!R1C1:RrowkC1"

Kann man hier den Zellbezug für die letzte Zelle "RrowkC1" so formulieren??
Es ist eine Variation des Macrorecorders.

~beginn~
Sub KürzelfürLehrerliste()
Dim k As String

k = KürzelNeuerLehrer

Dim irowk As Integer
irowk = 1
Do Until IsEmpty(ActiveSheet.Cells(irowk, 1))
irowk = irowk + 1
Loop

Sheets("Lehrerliste").Unprotect
Sheets("Lehrerliste").Cells(irowk, 1) = k

Sheets("Lehrerliste").Range(Cells(1, 1), Cells(irowk, 1)).Select

ActiveWorkbook.Names.Add Name:="Lehrerliste", RefersToR1C1:="=Lehrerliste!R1C1:RrowkC1"

Sheets("Lehrer").Protect

End Sub
~end~

Danke für eure Tipps!
lg
jörg