Sum af synlige kolonner

Hej

Jeg skal have lavet en funktion der tager summen af de celler hvor kolonnen foran er synlige. Dvs. hvis kolonnerne H til AB er synlige skal jeg have summen af G til AA.

Herunder har jeg en funktion jeg bruger til at finde summen af de synlige kolonner og under igen en formel jeg bruger til at indsætte funktionen i de rigtige celler og tage summen af de rigtige celler. Måske den kan modificeres.

Function SumVisible(WorkRng As Range) As Double

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

'Indsætter formel i kolonne F mellem række FirstRow og LastRow
For i = FirstRow To LastRow
    Cells(i, 6).FormulaR1C1 = "=SumVisible(RC[2]:RC[311])"
Next i

Venlig hilsen

Klaus