我如何在VBA中循环下面的代码，同时每次都单步执行。当最后一步下降时，单元格中没有值时，循环将停止

Sub LoopAndStepInVBA()
    Dim i As Integer
    
    For i = 1 To 100 ' 循环范围可根据实际情况进行调整
        ' 单步执行代码
        Debug.Print "当前循环次数：" & i
        ' 这里填写需要执行的代码
        ' 例如：
        ' 如果是在单元格中进行操作，可以使用Cells()函数来操作具体的单元格，例如：
        ' Cells(i, 1).Value = "Hello World"
        
        If Cells(i, 1).Value = "" Then ' 判断单元格中是否有值
            Exit For ' 如果单元格中没有值，跳出循环
        End If
        
        ' 暂停单步执行
        Stop
        
        ' 继续单步执行
        Debug.Print "继续执行下一步"
    Next i
End Sub