SyntaxFix
Write A Post
Hire A Developer
Questions
The simplest modification (to the code in your question) is this:
Range("A" & Rows.Count).End(xlUp).Select Selection.EntireRow.Delete
Which can be simplified to:
Range("A" & Rows.Count).End(xlUp).EntireRow.Delete