Когда вы используете автофильтр для фильтрации результатов, Excel даже не пытается их скрыть: он просто устанавливает высоту строки в ноль (по крайней мере, до 2003 года, но не уверен в 2007).
Таким образом, следующая пользовательская функция должна дать вам возможность начать делать то, что вы хотите (проверено целыми числами, больше ничего не играло):
Function SumVis(r As Range)
Dim cell As Excel.Range
Dim total As Variant
For Each cell In r.Cells
If cell.Height <> 0 Then
total = total + cell.Value
End If
Next
SumVis = total
End Function
Edit:
Вам нужно создать модуль в рабочей книге, чтобы поместить функцию, затем вы можете просто вызвать его на своем листе, как и любую другую функцию (= SumVis (A1: A14)). Если вам нужна помощь в настройке модуля, дайте мне знать.