Alle regels verwijderen na een bepaalde tekst

[HWV]

Beste,

Ik gebruik onderstaande voor het verwijderen van regels

Sub Rijenverwijderen()
For i = 1 To 60000 'vul hier eindregel in
If Cells(i, 1) = "Totaalwaarde Pa" Then
Cells(i + 1, 1).EntireRow.Rows.Delete
End If
Next i
End Sub

Graag zou ik nu de code willen omzetten dat hij niet 1 regel er onder verwijderd maar dat hij alles er onder verwijderd.
Ik heb tot nu toe deze code , waar ik een foutmelding op krijg.

Sub Rijenverwijderen()
For i = 1 To 60000 'vul hier eindregel in
If Cells(i, 1) = "Totaalwaarde Pa" Then
Cells(i, 1).Cells(Rows.count, 1).End(xlUp).Delete
End If
Next i
End Sub

Als ik het goed heb zoeken naar "Totaalwaarde Pa" als deze is gevonden regels tellen die gevuld zijn en dan vanaf onderen deleten. Of zit ik helemaal verkeerd te denken.

groet HWV

 

[snb]

Sub Rijenverwijderen()
  range(columns(1).find("Totaalwaarde Pa").offset(1),Cells(Rows.count, 1).End(xlUp)).entirerow.Delete
End Sub

 

[HWV]

Kan zo simpel zijn

Beste SNB,

Bedankt voor uw bijdrage.
Ik heb de code verwerkt en loopt als een trein.

Dank u wel

Groet HWV