vba中不同的循环能嵌套吗

for循环里面能嵌套do until loop循环吗
Sub 去年同期上门量()
Dim i!, m%, rs%
m = 0: rs = 2
For i = 5 To 29 Step 1
Do Until Sheets("上门量").Cells(rs, 16) = "" '判断类别循环
If Sheets("上门量").Cells(rs, 11) = "初诊" Then
If Sheets("上门量").Cells(rs, 16) = Sheets("汇总").Cells(i, 1) Then m = m + 1
End If
rs = rs + 1
Loop
Sheets("汇总").Cells(i, 3) = m
Next i
End Sub
第二次do loop 循环就不执行了，请求帮助！！

Private Sub CommandButton1_Click()Dim i As Long, j As Long
For i = 1 To 10 Step 1
Range("A" & （2*i-1）) = Range互鼎皋刮薤钙鸽水龚惊("J" & i)
Next
End Sub