To contribute to your learning curve:
Sub M_snb()
sn = Columns(1).SpecialCells(2, 1)
For j = 1 To UBound(sn)
If sn(j, 1) Mod 2 = 0 Then
y = y + sn(j, 1)
t = t + 1
End If
Next
MsgBox "number of even values: " & t & vbLf & "total of even values: " & y & vbLf & "average: " & y / t
End Sub
Or
Sub M_snb()
Columns(1).SpecialCells(2, 1).Name = "snb"
MsgBox "number of even values: " & [SUMPRODUCT(N(MOD(snb,2)=0))] & vbLf & "total of even values: " & [SUMPRODUCT((snb)*(MOD(snb,2)=0))] & vbLf & "average of even values: " & [SUMPRODUCT((snb)*(MOD(snb,2)=0))/SUMPRODUCT(N(MOD(snb,2)=0))]
End Sub