I've used the code below that was suggested to delete all of the old
data from a worksheet and hopefully reset the UsedRange back to just the
height of the header row but when I check the UsedRange of the worksheet I
still get 65536 as the used rows. Hence when I try to loop through my code
it tries to test all 65536 Rows. IDEAS? Here is the code below.

I only want to test the used range of the worksheet, I can't test for a
blank row since many exist in the document. I just need the last row of
data.


First_Row = 3
Application.Worksheets("Work Sheet").Rows(First_Row).Resize(65536 -
First_Row).EntireRow.Delete

Debug.Print Application.Worksheets("Work Sheet").Rows.Count