Filter by Class

I am only at the start with this trying to get the bsics right. Any opinion on the direction I am heading with this code.

Sub Fomulas()

With Worksheets("Datasheet")

Dim ClassCount As Integer
Dim Anum, Bnum, Cnum, Dnum, Fnum As Long
Dim Aavg, Bavg, Cavg, Davg As Long

'       Filter by column B(Class id)
        .Range("B").AutoFilter Field:=1, Criteria1:="=1", Operator:=xlAnd
'        Using minus 1 to ensure headers aren't counted in Row Count 
        ClassCount = Cells(Rows.Count, "B").End(xlUp).Row - 1

FinalRow = Worksheets("Datasheet").Range(Cells("E:E"), Cells(LastRow, 5)).Cells
' Find the avg of all values in column and divide by number members
Aavg = (Sum("E2:E & FinalRow")) / ClassCount
' Find the difference for each member between their score and the average
Anum = ("E2:E & FinalRow") - Aavg
' Output values to sheet3

End With
End Sub

Is this harder than I realise? No ideas or sugestions ? Should I really be using .net for this sort of development?

Perhaps a Pivot Table is what you need. See attached and the PivotSample sheet from your data. You can filter by class and other fields.