Sub mehrere_zeilen()

Dim S As Integer
Dim zeilenanzahl As Integer
S = 2
zeilenanzahl = S + 3

Rows(zeilenanzahl & ":" & S).Select
End Sub