VBA 宏循环直到空白单元格

Question

我有一张包含大量数据的表格，我需要剪切特定列并粘贴到 1 列中，并且已经创建了一个宏，但需要循环执行它直到找到一个空白单元格。这是我的代码

'
' Column Macro
'


'
    Range("E2:I2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Range("B2").Select
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("E1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    Selection.End(xlUp).Select
    Columns("E:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("E2:I2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Selection.End(xlToLeft).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("A1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste

End Sub

这里我固定了 AD 列，其值将被拖下，并且 D 列之后每 5 列的值，即 EI，需要剪切粘贴到 E 列的最后一个空白单元格。因此，I 列之后的列将再次移至 EI，并继续粘贴到 E 列的最后一个单元格。在代码中，我已为 2 个数据粘贴实例录制了宏。现在我需要这样的宏，它将一直运行，直到 D 列之后没有数据可粘贴为止。