如何将过滤的数据从工作表1复制到工作表2

Question

我需要创建VBA，并执行从HTML文件创建报告的过程。我使用python脚本将HTML转换为excel。现在，我想从excel工作表1过滤模块M1的数据，并将过滤后的数据移到工作表2。我将对所有模块执行相同的操作。

我使用以下功能（按钮）进行了过滤

Private Sub CommandButton1_Click()

Dim SampleString As String
SampleString = Range("D1").Value
'MsgBox SampleString

Sheet1.Range("A1:F1").AutoFilter

Range("D1").AutoFilter Field:=4, Criteria1:="*E2E*"
Range("D1").AutoFilter Field:=6, Criteria1:="*Adv*"


End Sub 

现在，我想将此过滤器数据移到工作表2。如何复制过滤后的数据并粘贴到工作表2？

引荐SE Question Link