Delete Blank Lines
 

Hi...

I used to know how to do this. Can anyone remind me how to delete blank
lines in spreadsheet and have all lines with data to shuffle together?

Thanks in advance...

Gordon...

Delete Blank Lines
 

I believe you are trying to do this:
Sub RemoveBlankLines()
LR = Range("A65536").End(xlUp).row
For myRow = LR to 1 Step - 1
if isEmpty(Range("A" & myRow)) then
Rows(myRow).Delete
End if
next myRow


"Gordon" wrote:

Hi...

I used to know how to do this. Can anyone remind me how to delete blank
lines in spreadsheet and have all lines with data to shuffle together?

Thanks in advance...

Gordon...