Deleting Empty Rows in Excel VBA

The code for the script is: Sub DeleteRows() On Error Resume Next Range("A3:A" & Worksheets(1).UsedRange.Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub If you have any questions, feel free to write them down in the comments.