Compacting a routine in vba

[rfletcher35]

Hi guys I have the following routine

ActiveSheet.Range("$A$3:$J$10000").AutoFilter Field:=9, Criteria1:=Array("=" _
), Operator:=xlFilterValues, Criteria2:=Array(1, "1/31/2021")
Range("M1").Select
Selection.Copy
Sheets("The Omerta Group").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

This routine filters on column 9 for January, copies a subtotal figure M1, then goes to another sheet and pastes that information for me into a required cell C2.
This repeats for Feb - Dec and pastes the detail in then next cell down on the other sheet, C3, C4, C5.......

As you can imagine this routine occurs 12 time and I was wondering if someone knew of a way to condense all this?

I ask as I also need to add this routine for around 6 or 7 sheets for other company names

Thanks

Fletch

 

[Alex Blakenburg]

The filter is being applied to "$A$3:$J$10000" and the SubTotal to "$I$4:$I$8000".
Do you have data in rows 8001-10000 ?
What happens if you extend the M1 formula to 10000 ?

 

[bobsan42]

And what exactly is the filter that you need?
As far as I can see your original fiter is last day of the month?