Overflow Error in VBA

[kstrain]

I have a macro written that combines all lines below the header row into a new "Master" tab. It has worked on previous files until now. The total rows of data I am moving into my Master tab is 39,547 lines. While running my macro, I receive an error message stating Overflow. It is giving an error message on this step highlighted below. Why is it now giving an error on this file but hasn't on past files? The # of lines is still below the 65536 rows listed in part of the code and the file size is actually 1048576 (as have the other files that I have ran this macro on and they haven't given any error messages).

 

[cmowla]

You probably need to declare:

Dim i as long

Instead of:

Dim i as Integer

 

[kstrain]

I currently use Dim lastrow as Long to add formulas to multiple columns/rows. Can I put both in my macro without error?

 

[cmowla]

Yes, they are separate variables.

 

[Michael M]

MAybe this way

Sub Del_Rows()
  On Error Resume Next
  Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

 

[kstrain]

Yes, they are separate variables.

it worked perfect! thank you!!

 

[Michael M]

Glad to help..