I have the following macro to delete empty rows and it works fine, but for some weird reason it won't work when I copy paste special all the data then I edit, replace anything with 12:00:00 am, with nothing I leave the field blank , which leaves the rows blank.
Any ideas or suggestions, Thanks.
Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Any ideas or suggestions, Thanks.
Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub