So I found out how to delete rows. This is the code I ended up using right before the End Sub
            
            Columns("D").Replace "0", "#N/A", xlWhole, , False
            Columns("D").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
not sure i understand everything in it, but it appears to be working fine!