Conducting Calculations based on Autofiltered Data

[farmertml]

Hi there.

I have a large number of data which I have autosorted based on two variables (Grower and Variety). What I want to achieve is to take the total "number of items" and "percentage rejections" (two other variables) from the autofiltered data, and copy and paste it into another sheet (to conduct further calculations).

The other problem I will then have is I need to it be as automated as possible as there are at least 10 varieties for each grower which I will need pasting onto the same sheet.

For example if Grower1 has Three products, "Chocolate" and "Marshmallows" and "Honey", I want to automatically sort my "SheetA" data by each of the variables independantly and then copy the "number of items" and "Percentage rejections", onto my second sheet "SheetB", one after the other.


I know the VB to select the autofilter critera :

Sub Filter1()
Selection.AutoFilter Field:=1, Criteria1:="Grower1"
Selection.AutoFilter Field:=4, Criteria1:="Marshmallows"
End Sub

But obviously there is alot more to this and it's quite complicated.

Any help would be REALLY appreciated as I'm tearing my hair out at the moment.