Macro that deletes rows below a certain value

Also I am getting an error 13, mismatch when I try the code provided above.

This part turns yellow on the error;

Range("A" * lngLoopRow).Resize(43, 1).EntireRow.Delete