Cannot remove extra lines with VBA or manually!!??

[logandiana]

I've got code that takes a sheet copies it.
Then uses

With billPO
LR1 = billPO.Cells(Rows.Count, 3).End(xlUp).Row
.Range(.Rows(LR1 + 1), .Rows(LR1 + 1).End(xlDown)).Delete
End With

To delete everything under the last row (usually around 700 rows).
Then the workbook is saved.

When I go check the saved workbook after the procedure. I've got my data but after the 700 or so rows of data, I've got blank rows all the way down to the bottom (1048576)
Not sure why this is happening this time in particular as this method has always worked before.
BUT here's the kicker.
When I manually open the workbook. Go to the 1st blank row after the last row of data.
I select the row, then do a ctrl shift down, right click and Delete. All the empty rows appear to delete.
I save and close. I have done this method without problem before as well.

But I go back into the workbook and the blank rows are still there.

Not sure what is happening.

 

[cmowla]

A very bold statement, hopefully a true one as well.

Sure is. I have dealt with this a lot. I have found for certain worksheets, the first sub will do just fine (and is faster). But the second never failed on any sheet I ran it on.

 

[logandiana]

Okay, figured out what was causing it.
After I did the sheet copy.
I did

.columns("C").value = .columns("M").value

after stepping through it I found that this line caused the scroll bar to go to the bottom
I changed it to

.range("C1:C" & LR1).value = .range("M1:M" & LR1).value

Works as it should now.