CurrentRegion - Problem

Das nachfolgenden Makro funktioniert nicht
mit der Eigenschaft "CurrentRegion" ich möchte das Makro
eingrenzen auf bestimmte Zeilen getrent mit leeren Zeilen,
deshalb keine UsedRange-Eigenschaft.

Sub klapptnicht()
Dim i As Integer
Range("A22").Select
For i = 1 To ActiveSheet.CurrentRegion.Row.Count
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Kann mir jemand helfen ?

Vielen Dank.

Grüße