在Excel VBA中，如何查找一个子字符串，选择它下面列的其余部分，然后将选定区域移动到另一个工作簿？

Sub MoveDataToAnotherWorkbook()
    Dim searchString As String
    Dim searchRange As Range
    Dim foundCell As Range
    Dim selectedRange As Range
    Dim destinationWorkbook As Workbook
    
    ' 设置要查找的子字符串
    searchString = "子字符串"
    
    ' 设置要查找的范围，可以根据需要修改
    Set searchRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:A100")
    
    ' 在范围中查找子字符串
    Set foundCell = searchRange.Find(searchString, LookIn:=xlValues, LookAt:=xlPart)
    
    ' 如果找到了子字符串
    If Not foundCell Is Nothing Then
        ' 选择子字符串下面的列的其余部分
        Set selectedRange = foundCell.Offset(1).Resize(searchRange.Rows.Count - foundCell.Row)
        
        ' 打开另一个工作簿
        Set destinationWorkbook = Workbooks.Open("路径\另一个工作簿.xlsx")
        
        ' 将选定区域复制到剪贴板
        selectedRange.Copy
        
        ' 在另一个工作簿中粘贴选定区域
        destinationWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
        
        ' 关闭另一个工作簿并保存更改
        destinationWorkbook.Close SaveChanges:=True
    Else
        MsgBox "未找到子字符串。"
    End If
End Sub