How to make the following code dynamic?

Hi,
I have a macro that extracts data from a large table based on some criteria.

After the macro extracts the pertinent data, it needs to be sorted based on three different columns.

Clicking "Record MAcro" compiles the following code:

Please Login or Register  to view this content.

In the code above, the table size is "A6:P253". Row 6 is the table header, and row 253 happened to be the last row that contained data.

In the code above, I would like to be able to replace all of the "253's" with a dynamic value based on the last row containing data.

Anyone know how I can do that?

Try this:-

in the beginning of your code add these to calculate Last row in the sheet.
With ActiveSheet.UsedRange
lrow = .Rows(.Rows.Count).Row
End With

and then replace all the Range() accordingly; Im doing it for the first range here(Range("A6:P253").Select), lrow below is dynamic

Range(Cells(6,"A"),Cells(lrow,"P")).select