Excel VBA。根据多列中的值将所有行从一个Excel工作表复制到另一个工作表中的特定单元格

Question

我有一个excel电子表格，该表格具有包含2000个条目的表，并且随着时间的流逝，它只会更多。它总共有10列，其中的数据根据​​名称，日期和常规字符串而有所不同。随着数据的增长，我希望能够创建一个可以单击的按钮，它会将具有特定数据的所有行复制到几列中。到目前为止，我已经有了这段代码；

Sub foo()
Dim wsResult As Worksheet
Set wsResult = Sheets("New_Sheet")

With Worksheets("Old_Sheet")
    With .Range("A2:I" & .Cells(.Rows.Count, "A").End(xlUp).Row) 
        .AutoFilter field:=1, Criteria1:="Name" 
        .AutoFilter field:=2, Criteria1:="Date" 
        If Application.WorksheetFunction.Subtotal(103, .Columns(1)) > 1 Then .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Destination:=wsResult.Range("A1") 
    End With
    .AutoFilterMode = False
End With
End Sub

使用此方法，我可以将数据提取到新工作表的开头，但是我希望能够将其复制到该新工作表中的特定单元格中。那就是我可以设置按钮来更改其查找日期，并根据每月的名称和月份快速选择数据。

任何帮助都会很棒。