Endlosschlaufe

Ich habe ein Problem mit einer Endlosschlaufe, die die Länge (Kolonne A) mit der Breite (Kolonne B) multiplizieren soll, bis keine Werte mehr auf der Linie sind. Danach soll eine MessageBox ausgeben xxxx m2. Mein Programm funktionniert, jedoch überhaupt nicht professionnel, da ich es 99 mal abarbeiten lasse.
Kann mir jemand einen Tipp geben ?
Momentane Makro =
Zähler = 0
Tot = 0
Do While Zähler < 99
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Tot = ActiveCell + Tot
Selection.ClearContents
ActiveCell.Offset(1, 0).Range("A1").Select
Zähler = Zähler + 1
Loop
Range("A1").Select
MsgBox "Die Fläche ist " & Tot & " m2."
End Sub

Vielen Dank

Herbert