Vba 重复语句的循环

我需要编写一个循环来运行以下几行，直到第三行找到它选择为空的单元格

我通常会包括我的代码，以便对循环进行纠正/批评，但在搜索了整个上午后，我找不到一个do while循环的示例，该循环不算继续移动

有人能用一两个链接给我指出正确的方向吗

Sheets("Sheet1").Select
Selection.Offset(0, 3).Select
Selection.Offset(1, 0).Select

Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection(1, 3)).Select
Selection.Copy

Sheets("Output").Select
Selection.End(xlDown).Select
Selection.Offset(1, 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Include Fund name
Sheets("Sheet1").Select
Selection.End(xlUp).Select
Selection.Copy

Sheets("Output").Select
Range("B2").Select
Selection.End(xlDown).Select

Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Selection.Offset(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(0, -1).Select
Selection.FillDown

我找不到一个do while循环的例子，它不算继续移动

那么，你看起来不太努力。所有

Do

或

While

循环都应该有一个终止符或

Exit

语句，否则它们将在无限循环中使应用程序崩溃

尝试：

或：

---

我很抱歉，但我不知道足够的VBA来了解这段代码的大部分含义。我将进行实验和复习，并尝试在将来不要浪费任何人的时间。

 Do Until Sheets("Sheet1").Selection.Offset(1, 0).Value = vbNullString

    '// YOUR CODE HERE //


 Loop

Do
   If Sheets("Sheet1").Selection.Offset(1, 0).Value = vbNullString Then Exit Do

   '// YOUR CODE HERE //

Loop