Zeilen a1 bis u20 in einem Range selectieren

Sub DeNrZaehler()
Dim i, i1, i2, i3, i4, z1 As Long
Dim StartRange, EndRange As String
'Anzahl der Zeilen
i1 = ActiveSheet.UsedRange.Rows.Count
'celle selctieren
ActiveSheet.Cells(10, 3).Select
i2 = CDbl(ActiveCell.Value)
z1 = 0
For i = 10 To i1
ActiveSheet.Cells(i, 3).Select
If z1 = 0 Then i4 = i
z1 = 1
If i2  CDbl(ActiveCell.Value) Then
i2 = CDbl(ActiveCell.Value)
StartRange = "A" & (i4) & ""
EndRange = "U" & (i - 1) & ""
'Nachfolgend habe ich diese Varianten ausprobiert mit den aber Excel nicht klar 'kommt:-(
'          Cells(StartRange, EndRange).Select ' geht leider auch nicht
'         Range("A" & (i4) & ":U" & (i)& ").Select
'         ActiveCell.Range("A" & (i4) & ":U" & (i) & ").Select
'         Range("A"&(i4)&", Range("U" & (i-1) & ")).select
End If
Next
End Sub