Sub mehrere_zeilen()
 
Dim S As Integer
Dim zeilenanzahl As Integer
S = 2
zeilenanzahl = S + 3
 
Rows(zeilenanzahl & ":" & S).Select
End Sub