problemer med do loop i excel vba

jeg har et problem med en do loop i excel...

når jeg kører koden giver den Runtime error 1004 - application defined or object-defined error

min kode ser sådan ud:

Sub histogram()

Dim NoRows As Integer
NoRows = 0

Do Until IsEmpty(ActiveCell)


Do While (ActiveCell.Text = ActiveCell.Offset(-1, 0).Text)

NoRows = NoRows + 1

Loop

ActiveCell.Offset(0, 2).Value = NoRows

ActiveCell.Offset(1, 0).Select
Loop

End Sub


det er denne linje der er fejl ved:
Do While (ActiveCell.Text = ActiveCell.Offset(-1, 0).Text)

jeg har også prøvet med .Value i stedet for .Text men uden held... hvad er det jeg gør forkert?