Sum af celler med reference til andre celler

Hejsa,

Så er jeg sgu her igen :)

Har nedenstående, som er lavet med hjælp herinde fra, tak!
Nu har jeg så et ønske om at få bygget videre på den, så den bliver noget nær perfekt!

Se min forklaring nede i koden.

Neden stående formel startede her:
https://www.computerworld.dk/eksperten/spm/1034707

Sub SUM_AF_MARKEREDE_CELLER_I_KOLONNE_F()
'
' SUM_AF_MARKEREDE_CELLER_I_KOLONNE_F Makro
'
' Genvejstast:Ctrl+t
'
Dim R1, R2 As Long
R1 = Selection.Rows(1).Row
R2 = Selection.Rows(1).Row + Selection.Rows.Count - 1
If Selection.Column = 6 Then

' Her skal den se hvilket tal der står i cellen (mellem 1 og 5) til venstre for den markerede celle.
' De referer til løngrupper 1-5 (Kolonne I række 7-11).
' Den skal så hvis den ser, fx et 2 tal i kolonne 5 i valgte række, tage timerne i den samme række kolonne F
' og gange dem med værdien i celle I8, dividere med værdien i celle I7.
' Det samme skal den for den/de celler man har markeret i kolonne F, med reference til tallene i kolonne E, 1-5 og
' ende med en sum af timer udregnet efter ovenstående i cellen lige over den øverst markerede celle.


Selection.Rows(1).Offset(-1, 0) = WorksheetFunction.Sum(Selection)




Selection.Rows(1).Offset(-1, 3) = WorksheetFunction.Sum(Selection.Offset(0, 3))
Selection.Rows(1).Offset(-1, 4) = WorksheetFunction.Sum(Selection.Offset(0, 4))
Selection.Rows(1).Offset(-1, 5) = WorksheetFunction.Sum(Selection.Offset(0, 5))
Selection.Rows(1).Offset(-1, 6) = WorksheetFunction.Sum(Selection.Offset(0, 6))
End If
Range(Cells(R1, 2), Cells(R2, 2)) = "Nej"
Range(Cells(R1, 13), Cells(R2, 13)) = "Ja"
End Sub