Soru Label (Sütunda hücrelerdeki verileri döngü ile alma)

[sirkülasyon]

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, i As Byte
    Set S1 = Sheets("Sayfa1")
    For i = 1 To 16
        Controls("Label" & i).Caption = S1.Cells(i + 1)
    Next i
End Sub

Sayfada B : Q aralığında ki yatay verileri döngü ile alıyorum.
A2 : A17 aralığında ki verileri döngü ile nasıl alabilirim? Rica etsem yardım edebilir misiniz?

 

[sirkülasyon]

For i = 2 To 17
Controls("Label" & i).Caption = S1.Cells(i + 1, 1)
şekli ile sorun çözüldü

 

[sirkülasyon]

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, i, r, j, k As Byte
    Set S1 = Sheets("Sayfa1")
    For i = 1 To 9
        Controls("Label" & i).Caption = S1.Cells(i + 1, 1)
    Next i
        For r = 1 To 9
        Controls("TextBox" & r).Text = S1.Cells(r + 1, 2)
    Next r
        For j = 10 To 13
        Controls("Label" & j).Caption = S1.Cells(j + 1, 1)
    Next j
        For k = 20 To 23
        Controls("TextBox" & k).Text = S1.Cells(k + 1, 2)
    Next k
End Sub

Çoklu veri almaya çalıştığım zaman For i ve For r olanları userforma aktarıyor ancak For j ve For k olanları userforma almıyor. Yardımcı olabilir misiniz?

 

[sirkülasyon]

D2 : D5 aralığı Label10 -13' e
E2 : E5 aralığı TextBox20-23' e
Döngü kurarak alamadım. Yardımcı olabilir misiniz?