Tidying up code: Sorting using autofilter and multiple keys

I'm trying to tidy up some code I recorded which sorts filtered data by three different columns.

1) Can I put multiple sort keys together so I don't have to repeat the 'Active Workbook. Worksheets....' text? I have seen numbers used elsewhere (eg Key1:=... Order1:=...), but I cannot seem to make it work in my code.

2) Are there any other bits of code I could remove and it still do the same thing?

This is my current code: (ClearData refers to a variable which picks up the last row of data on the worksheet.)

Please Login or Register  to view this content.

Any help would be much appreciated; this bit of code gets repeated quite a few times with differing sort criteria, hence my desire to shorten it!

Thanks

Thanks Kaper. It doesn't shorten it much, but it does cut out a bit of text :-)

And thanks for explaining about Key1, Order1 etc - I probably was looking at an older excel macro.