Thanks for this info.I used it too.
However I keep getting an error when I run the same script from the link.
the debugger stops here- with an application-defined or object defined errror.

Else
.Range(.Cells(myLastRow + 1, 1), _
.Cells(.Rows.Count, 1)).EntireRow.Delete
.Range(.Cells(1, myLastCol + 1), _
.Cells(1, .Columns.Count)).EntireColumn.Delete
End If
End With

Any ideas
Rory

"T. Valko" wrote:

See this:

http://contextures.com/xlfaqApp.html#Unused

Note that when you "delete" the unused rows you're not literally removing
them from the the sheet. Technically, what you're actually doing is
resetting the *used range*.

--
Biff
Microsoft Excel MVP


"Kajuliano" wrote in message
...
I am working on an excel file in which I currently have data in 1,650 rows
and there are blank cells within the rows I am working on that need to
stay
blank. My main problem is deleteing the extra 65,536 blank rows below my
data
that randomly appeared when I copy and pasted my data to a new workbook.
When
I highlight a single blank row or many blank rows beneath my data and hit
delete row, they do not go away and it is really annoying because my
scroll
bar had become all but useless- please help! Thanks!