Hi vichisov,

I'm using excel 2007 on Windows 8 but I believe the the workbook will work for you. The macros used that I was referencing by vba is in module one 
Function SumVisible(WorkRng As Range) As Double
'Update 20130907
Dim rng As Range
Dim total As Double
For Each rng In WorkRng
If rng.Rows.Hidden = False And rng.Columns.Hidden = False Then
total = total + rng.Value
End If
Next
SumVisible = total


End Function
as well as some in the sheet1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.Sheets("Sheet1").Calculate


End Sub
Anyway, the example was meant as an option. There are probably better ways to accomplish what you want but this is the best I could do. Good luck!