Error with Loop

[Jeeremy7]

Hello,

I have a problem with one of the loop I'm trying to do and I think it's in the formula but could somoene help me ?
Also I saw that some macro run faster without Loop, is there a way to convert my code without loop ?

Here the code thanks !

   'Put the total cost plus fee at the end of each code
    Dim A As Long
    Dim B As Integer
    A = ActiveCell.Offset(0, -2)
    B = Sheets("Notes").Range("B1")
    
    Range("K13").Select
    Do Until ActiveCell.Offset(0, -8) = "Total"
        If ActiveCell.Offset(1, -2) = "" Then
            ActiveCell = A * (1 + B)
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
    
End Sub

 

[Fluff]

Ok, how about

Sub Jeeremy()
   Dim Rng As Range
   
   For Each Rng In Range("J5", Range("J" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      If Rng.Count = 1 Then
         Rng.Offset(, 1).FormulaR1C1 = "=rc[-2]*(1+Notes!r1c2)"
      Else
         Rng.Offset(Rng.Count, 1).Resize(1).FormulaR1C1 = "=rc[-2]*(1+Notes!r1c2)"
      End If
   Next Rng
End Sub

 

[Jeeremy7]

Works like a charm thanks

 

[Fluff]

You're welcome & thanks for the feedback.