Hi probably a cleaner way of doing this.
If the word "Topper" in column A exists. Then keep those rows and delete everything else. So you see down below I had to filter Tunnel and Yards Slabs in order to delete them and keep Topper.
Sub Mac9()
Columns("A:A").AutoFilter...