Automatisk indsættelse af formler ved opdatering

Hvis du laver sammentællingen i den øverste linie istedet og så f.eks. skriver:

=sum(a1:a10000)

Så har du aldrig noget problem med hvor mange linjer der er i arket.

Jeg var ikke lige præcis nok i min formulering.
Der er en formel ud for hver rækker der laver udregning udfra de data der står i den enkelte række. Altså i række A2 til h2 er der nogle data udfra hvilke der laves en beregning i I2, sådan er det i alle rækker der ned ad. Den formel der er i i2 skal jeg lige nu selv kopier ned når der kommer flere rækker til og det er det jeg gerne vil have automatiseret.

denne kode kontrollerer om der står noget i kolonne h i hver enekelt linje fra linje 1 -5000. Hvis der gør det,  indsætter en en formel med sum fra a:h


Sub kopier()
Dim cell As Range
For Each cell In Range("I1:I5000")
  If cell.Offset(0, -1) <> "" Then
        cell.FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
        Else
  End If
Next
End Sub

Det virker fint, tak for hjælpen mrkr.
Post et svar så du kan få point.

Det kommer her :-)