Loop code with "Do Until" loops in it

[Beachson]

I am trying to loop the long code below until ...

ActiveCell.Offset(1, -11) = ""

If I cannot loop the code using the condition then looping the code for a specified number of times will suffice ... I am a novice with VBA so forgive me if I am going at this wrong to begin with but my desired result can be achieved by simply looping the code below.

Thank you so much for any help

Let X = 0
 
 Do Until ActiveCell.Offset(0, -11) <> ActiveCell.Offset(1, -11)
 
 If ActiveCell.Offset(0, -11) = ActiveCell.Offset(1, -11) Then
          
 NextFree = Range("AD2:AD" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
 Range("AD" & NextFree).Select
    
 ActiveCell.Offset(0, -1).Select
 Selection.FormulaR1C1 = "=IF(RC[-2]>0,RC[-2],0)"
 ActiveCell.Offset(0, 1).Select
 Selection.FormulaR1C1 = _
 "=IF(AND(RC[-3]>0,RC[2]>-1,RC[3]>-1,RC[4]>-1,RC[5]>-1),RC[-3],0)"
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
 ActiveCell.Offset(0, -1).Select
 Selection.ClearContents
          
 Else
          
 ActiveCell.Offset(0, -2).Select
 Selection.FormulaR1C1 = _
 "=IF(SUMIF(R2C18:R1000C18,RC[-10],R2C27:R1000C27)=SUMIF(R2C18:R1000C18,RC[-10],R2C30:R1000C30),RC[2],0)"
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
 ActiveCell.Offset(0, 1).Select
 Selection.ClearContents
          
 End If
          
 X = X + 1
 
 Loop
          
 ActiveCell.Offset(0, -1).Select
     
 Do Until ActiveCell.Offset(0, -10) <> ActiveCell.Offset(-1, -10)
     
 ActiveCell.Offset(0, -10) = ActiveCell.Offset(-1, -10)
 Selection.FormulaR1C1 = _
 "=IF(SUMIF(R2C18:R1000C18,RC[-10],R2C27:R1000C27)=SUMIF(R2C18:R1000C18,RC[-10],R2C30:R1000C30),RC[2],0)"
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
 ActiveCell.Offset(-1, 0).Select
     
 X = X + 1
 
 Loop
        
 Selection.FormulaR1C1 = _
 "=IF(SUMIF(R2C18:R1000C18,RC[-10],R2C27:R1000C27)=SUMIF(R2C18:R1000C18,RC[-10],R2C30:R1000C30),RC[2],0)"
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
 ActiveCell.Offset(0, 1).Select

 

[mrshl9898]

You could just add

Do Until ActiveCell.Offset(1, -11) = "" after Let x = 0

and Loop after your first or 2nd loops depending what you are trying to achieve.

 

[Beachson]

You could just add

Do Until ActiveCell.Offset(1, -11) = "" after Let x = 0

and Loop after your first or 2nd loops depending what you are trying to achieve.

Would I just add that to the beginning of the code? If I do that I get a "Compile Error. Expected end of statement" on the "After" part of the code.

 

[mrshl9898]

May be a misunderstanding here. Apologies for wording that poorly

Add

[COLOR=#333333][I]Do Until ActiveCell.Offset(1, -11) = "" [/I][/COLOR]

after the line

[COLOR=#333333][I]Let x = 0[/I][/COLOR]

and then

Loop

after one of your other loops

 

[Beachson]

May be a misunderstanding here. Apologies for wording that poorly

Add

[COLOR=#333333][I]Do Until ActiveCell.Offset(1, -11) = "" [/I][/COLOR]

after the line

[COLOR=#333333][I]Let x = 0[/I][/COLOR]

and then

Loop

after one of your other loops

That looped my code properly. Thanks you so much for the help!