VBA: Nested Loops and Knowing How Many Times it's Looped

Question

    Dim pos As Range, range1 As Range, range2 As Range
    Dim x As Variant, Y As Variant
    
    Set pos = Sheets("Sheet1").Cells(5, 6)
    For Each y In