Excel 创建循环以在查找函数后复制/粘贴vba循环

我试图在excel中创建一个循环，找到一个单词，然后将单词下面的所有单元格复制并粘贴到另一个工作簿中，直到出现一个空白单元格。 我是VBA的新手，所以请不要客气

Sub CopyRows()

Dim Found As Range
Dim NextFreeCell As Range
Dim wkDest As Worksheet

Set wsDest = Workbooks("sample_bills (version 1).xlsx").Worksheets("sample_bills")
Set NextFreeCell = wsDest.Cells(Rows.Count, "C").End(xlUp).Offset(RowOffset:=1)
Set Found = Cells.Find(What:="Paid", LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
    If Found Is Nothing Then
    MsgBox "ERROR"
    Else
    i = Found.Row
    j = Found.Column

    End If

    Do
    NextFreeCell = Cells(i, j)
    i = i + 1
    Loop Until IsEmpty(Cells(i, j))

End Sub

---

这是我到目前为止得到的，但只会复制并粘贴单词payment到另一个工作簿中，不会继续做下面的其他工作。任何帮助都将不胜感激：）

更新：通过移动线路解决此问题

Set NextFreeCell = wsDest.Cells(Rows.Count, "C").End(xlUp).Offset(RowOffset:=1)

进入循环