Zeile löschen, wenn Summe=0

Function (s. unten) auch direkt ins Modul einbauen ?
Folgendes habe ich schon ausprobiert:
(-> Ergebnis: jede 2. Zeile wird gelöscht, Summe wird nicht berücksichtigt)
Makro in Tabelle:
Public 

Function LastRow()
Dim intLastRow As Integer, intCounter As Integer
intCounter = 1 'Zähler
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte 1
End Function


Makro in Modul:


Sub Makro1()
Dim intLastRow
intLastRow = Tabelle1.LastRow
intCounter = 2
While intCounter <= intLastRow
Range(Cells(intCounter, 1), Cells(intCounter, 50)).Select
If Sum = 0 Then Selection.Delete
'Ende Schleife
intCounter = intCounter + 1
Wend
End Sub