Range("R1").Value = 1
Do
    If Range("R1").Value <= Range("U2").Value Then
        
        ' enthält Range("U1") den Wert "j" ?
        If InStr(Range("U1").Value, "j") > 0 Then
            ' <... Drucken ...>
        End If
        
        Range("R1").Value = Range("R1") + 1
        
    End If
Loop Until Range("R1").Value = Range("U2").Value

... entsprechend deiner Formulierung.

Mich beschleicht allerdings das Gefühl, dass deine Beschreibung inhaltlich falsch formuliert ist.

Du solltest dir noch mal Gedanken darüber machen, ...

1. ob du eine kopfgesteuerte Schleife, oder eine fußgesteuerte Schleife benötigst
2. welche Variablen du benötigst (warum zählst du in einer Zelle hoch, anstatt einfach eine Variable zu verwenden?)
3. wie das Abbruchkriterium lauten soll (Achtung Endlosschleife)
4. und ob du, abhängig von Punkt 1. und Punkt 3., die innere If-Anweisung (die in Zeile 3) noch benötigst.

Grüße