Slet række if activecell = "tekst" & "tal(som er forskelligt)"

Hej

Jeg er lidt ny med VBA, og har derfor et problem med min kode.
Jeg har et udtræk af et økonomisystem fra en CSV fil, og der kommer derfor en masse data jeg ikke skal bruge. I kolonne A fremgår en masse varenummer, men indimellem kommer der noget data jeg ikke skal bruge.
Der komme i kolonne A en tekst som hedder Total,stat.gr. 003 og jeg vil derfor slette hele rækken for det data det indebære, hvilket ikke er noget problem. Problemet er at længere nede i arket kommet endnu en række jeg ikke skal bruge som hedder Total, stat.gr. 007, og dette fortsætter 900 rækker ned. Der er desværre ikke noget system i når disse række kommer, og de sidste 3 cifre er der heller ikke noget system i.
Jeg har indtil videre strækket dette sammen:

cellcount = Range("a1", Selection.End(xlDown)).Count
Range("a1").Activate
For i = 0 To cellcount

If ActiveCell = "Total.stat.gr " & "tal" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Next i

Her er så problemet at  "tal" variere og der er ikke noget system i hvad tal der kommer næste. Det ville være super dejligt hvis jeg kunne skrive 1-100 som tal, men kender ikke lige nogen kode for det.

Håber i kan hjælpe