Column A of my spreadsheet has various data - many of which matches - followed by blank spaces. I would like to search and find the specific string, then delete it along with all of the blank cells (really the entire rows) that follow and finally continue the search and delete until all of Column A is complete.

The following code will delete the specific string along with the entire row , but how to I delete the blank rows that follow on this string without deleting all blank rows in Column A before checking to see if that specific string is there?

Dim r As Range
Set RngofSrch = ActiveSheet.Range("A:A")

Do
Set r = RngofSrch.Find("string")
If Not r Is Nothing Then r.EntireRow.Delete
Loop While Not r Is Nothing

Any insight you can provide would be greatly appreciated.