Delete Cells with Specific Value and All Blank Cells Until Next Populated Cell is Checked

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.

Post a sample workbook with before and after examples.

Before.jpgAfter.jpgDesired.jpg

Pic #1 is "Before" spreadsheet format
Pic #2 is "After" spreadsheet format after current macro is run
Pic #3 is "Desired" what I'd like the spreadsheet format to look like after macro is run