Простым способом была бы формула в B1
=SUM(COUNTIF(A:A, {"Test1","Test2","Test3","Test4"}))
, которую можно сделать в VBA с помощью
Sub Test()
Sheets(1).[b1] = Evaluate("SUM(COUNTIF(A:A, {""Test1"",""Test2"",""Test3"",""Test4""}))")
End Sub
Обновлено для уточненного намерения
Sub Test()
Sheets(1).[b1].Value = Evaluate("SUM(SUMIF(A2:A10, {""Test1"",""Test2"",""Test3"",""Test4""},B2:B10))")
End Sub