pelo que entendi da função é pq vc colocou um if dentro do outro

If cell.Rows.Hidden = False Then
If cell.Columns.Hidden = False Then

total = total + cell.Value

End If
End If
uma só vai funcionar se a primeira tbm estiver como false

não sei bem oq vc quer
mas pode tentar assim
If cell.Rows.Hidden = False Then total = total + cell.Value
If cell.Columns.Hidden = False Then total = total + cell.Value

sem o end if
nesse caso vai funcionar a que estiver como false, uma ou outra

desculpa, eu não tinha entendido oq vc queria

olha só a função que vc postou funciona sim,
mas parece que somente é automatica com linhas
nas colunas vc tem que forçar o recalculo com
CTRL + ALT + F9

bem que eu tinha reparado que minhas funções tinha problemas com celulas ocultas no caso é nas colunas, tinha até colocado um post aqui no forum sobre tal fato que minha macro as vezes dava pane com celulas ocultas

Bom dia!!

Favor indicar a postagem cruzada!!!
http://gurudoexcel.com/forum/t/ajuda-na ... ble-cells/

Att