Sorting a Range when the size of the range is not known in each of several worksheets

[Cooper2251]

I have be attempting to sort a range of variable size (unknown until prior vb code is run). The sorting need to be completed on each of several sheets. The sheet name is passed to the module when the subroutine is called. It seems to sort the first sheet fine, then the range size get fixed for subsequent sheets and it only sorts the fixed portions. I want the range size to be adjusted to each sheets data. Also, within the columns there are sometime blanks but there is a total in the last column. This routine only sorts those columns before it runs into one that is blank leaving the totals column unsorted. Code is below - any help is much appreciated. I must be doing something obviously wrong - hope you can see it.
I started from code someone else developed thinking I could modify for my purposes:

Please Login or Register  to view this content.

[soxcrates]

Looks to me like you're establishing your DataFirstCell and DataLastCell from the same worksheet each time.

Here's a sample of your code

Please Login or Register  to view this content.

When my guess is it should be

Please Login or Register  to view this content.

Since it doesn't look like you're changing the active worksheet it keeps using the selection from the first sheet.

[xladept]

Hi Cooper,

Try this:

Please Login or Register  to view this content.

[Cooper2251]

xladept - great - works fine. Thank you very much for the help. Poaabily you can help with another problem. My debugger highlights in yellow the following code (obviously indicating a probelm when trying to create subtotals from a sheet that has variable row length:

Please Login or Register  to view this content.

Anything obvious you can see?
Thanks again...in advance

[xladept]

Hi Cooper,

Maybe you need two fields here??

Please Login or Register  to view this content.

[Cooper2251]

Appreciate the thought - still not certain what you mean, but I am not known as the sharpest knife in the drawer. Do you mean a total for all months and a total for invidiual months? When I sort by GroupBy 2 it is supposed to subtotal rows by month, and create a grand total at the end -SummaryBelowData. In fact nothing is happening - I run this following the sort routine that you helped me solve above that sorts the rows by month.