Do loop

loop until

do starter do-sløjfen to gange, men afslutter kun den ene af dem

Do
        Do
        Loop Until ActiveCell.Value = "=+Forside!R4C9"

Sub IndsætKalender()
    Application.ScreenUpdating = False
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "=+Forside!R4C5"
    Do
        If ActiveCell("A7").Value > 0 Then
        ActiveCell.Offset(1, 0).Value = ActiveCell.Value + 1
    End If
    Loop Until ActiveCell.Value = "=+Forside!R4C9"
   
End Sub

Den går desværre i stå ved
      If ActiveCell("A7").Value > 0 Then

ActiveCell er et fast udtryk for den aktive/markerede celle, og derfor giver ActiveCell("A7") en fejl, fordi det er forkert anvendelse af udtrykket.

Sub IndsætKalender()
    Application.ScreenUpdating = False
    Range("A7").Select ' Dette gør cellen A7 til den aktive celle - ActiveCell
    ActiveCell.FormulaR1C1 = "=Forside!R4C5" '  Dette indsætter en formel i den aktive celle
    Do
        ' Hvis A7 > 0 så ...
        If ActiveCell.Value > 0 Then
            ' ... skal cellen på rækken under A7 (dvs. A8) have værdien i A7 plus 1
            ActiveCell.Offset(1, 0).Value = ActiveCell.Value + 1

        End If
    ' Kør i løkke indtil A7 er lig med det, der står i celle I9 i arket Forside
    Loop Until ActiveCell.Value = "=+Forside!R4C9"
 
End Sub

ActiveCell er lig med cellen A7 i hele loop'et. Ved ikke om dette er tilsigtet.

Jeg kan desværre ikke få det til at virke