Kopiere formel der står i celle C5 til C¤

Jeg har den VBA kode, hvor jeg indsætter 2 linjer, det fungerer, men jeg har det problem at der i C4 står en formel der rykker ned til C5, når jeg indsætter en linje, der er også ok.

Mit problem består i at når den formel der står i C4"=længde(D4)", bliver den formel der bliver kopieret således:

C4 = Længde(D6)
C5 = Længde(D6)
C6 = Længde(D6)

Det jeg ønsker der skal stå er

C4 = Længde(D4)
C5 = Længde(D5)
C6 = Længde(D6)



Sub IndsatRække2()
Dim tæller As Integer
Dim dVal As Double

dVal = Range("A4").Value
For tæller = 1 To 2
dVal = dVal + 1
    Rows(4).Insert

Range("A4").Value = dVal
Range("C4").Formula = Range("C5").Formula
Next

End Sub

er der nogen der har et bud?

Hilsen Michael