Summierung des letzten Postens

Sum()
Dim i, lRow, Flag_ As Long
Dim rng As Range
'Letzte Zeile in Spalte A
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Flag_ = 3
For i = 3 To lRow
If IsEmpty(Cells(i, 1).Value) Then
Set rng = Range(Cells(Flag_, 3), Cells(i, 3))
Cells(i, 3).Value = Application.WorksheetFunction.Sum(rng)
Flag_ = i + 1
End If
Next i
End Sub
pre>
Der Code summiert in einer Liste immer wenn der Zählalgorithmua in der Spalte A eine leere  _
Zelle findet. Leider funktioniert das nicht für den letzten Posten, da er anstatt einer leeren  _
Zelle denkt, die Tabelle sei zuende und deswegen summiert der Code nicht weiter.
Hat jemand da eine Lösung für ?
Ein File kann ich gerne Hochladen nur leider erst gegen Abend.
Liebe Grüße
Max