Hi have a Excel fill (size 80 MB), which have around 450000 row of data. There are few blank row randomly which i Need to remove/delete.
The code i have is as below which works fine for small data. but for huge data it gives me Overflow error.
Sub DeleteRow()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = Lastrow To 1 Step -1
If Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
Hence request you to give me code which i can you for 450000 row in a file
Bookmarks