Sub Sumƒg[ƒ^ƒ‹() Range("A1:B19").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$B$19").AutoFilter Field:=1, Criteria1:="A" Range("B20").Select Range("B20").Value = "=SUM(B2:B18)" End sub ----------------------------------------------------------------------------- Sub Subtotal() Range("A1:B19").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$B$19").AutoFilter Field:=1, Criteria1:="A" intSubT = Application.WorksheetFunction.Subtotal(9, Range("B2:B19")) Range("B20").Value = intSubT End Sub