Nested for each loops, moving to next cell on both simultaneously

Hi all,

I am trying to run 2 for each loops inside another loop, and I was wondering if there is a way to move to the next value for all loops at the same time.

So when it reaches "Next starting, final, scal", all ranges move to the next cell before performing the formula.

Sub blank()

Dim scal As Range, final As Range, starting As Range, Distinct As Worksheet, Sheet57 As Worksheet, Lager As Workbook

Set Lager = ActiveWorkbook
Set Distinct = Sheets("Distinct Discounts")
Set Sheet57 = Sheets("Sheet57")

Sheets("Distinct Discounts").Select
LLR = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet57").Select
Rw = Range("A" & Rows.Count).End(xlUp).Row

Range("B2").Select

For Each scal In Distinct.Range("B1:B" & LLR)
For Each final In Distinct.Range("C1:C" & LLR)
For Each starting In Distinct.Range("D1:D" & LLR)
    ActiveCell.FormulaR1C1 = _
        "=IF(COUNTBLANK('Weekly Promotions'!RC[" & starting.Value & "]:RC[" & final.Value & "])<" & scal.Value & ",1,0)"
    ActiveCell.Select
    Selection.AutoFill Destination:=Range(ActiveCell, cells(Rw, ActiveCell.Column))
ActiveCell.Offset(0, 1).Select
Next starting, final, scal

End Sub

Thanks in advance.

Hi arlu,

yes I solved it in the end:

Sub blank()
Dim LLR as long, starting as Range, FINAL as range, scal as Range
LLR = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").Select

row_counter = 1

Do
Set starting = Distinct.Range("D" & row_counter)
Set FINAL = Distinct.Range("C" & row_counter)
Set scal = Distinct.Range("B" & row_counter)
'MsgBox (scal)
'MsgBox (starting)
'MsgBox (final)

    ActiveCell.FormulaR1C1 = _
        "=IF(COUNTBLANK('Weekly Promotions'!RC[" & starting.value & "]:RC[" & FINAL.value & "])<" & scal.value - 1 & ",1,0)"
    ActiveCell.Select
    Selection.AutoFill Destination:=Range(ActiveCell, cells(Rw, ActiveCell.Column))
ActiveCell.Offset(0, 1).Select
row_counter = row_counter + 1
Loop Until row_counter = LLR + 1

Exit Sub