将特定数据从过滤器复制/粘贴到特定工作表

Question

我想知道是否有人可以告诉我这段代码有什么问题。

目的：

• 根据条件＆＃34; CRITERIA_A＆＃34;
过滤数据
• 将整个选区复制/粘贴到工作表上的名称与条件相同＆＃34; CRITERIA_A＆＃34;

问题：
此代码执行过滤器和复制/粘贴。 但是，它会粘贴整个选择，就好像根本没有过滤器一样。

附加选项：如何在将数据粘贴到工作表之前确保从特定工作表中删除所有以前的数据？

注意：
当我在userform中使用此代码时，它会复制/粘贴所有代码 当我在模块中使用它时，它会复制/粘贴任何内容

Sub filter()
Dim i As Integer
Dim sheetname As String


For i = 1 To 7
    On Error Resume Next
    sheetname = Sheets("DATA").Range("B" & i).Value
    Range("A1").CurrentRegion.AutoFilter Field:=15, Criteria1:=sheetname
    Range("B1").CurrentRegion.Cells.SpecialCells(xlCellTypeConstants).Copy _
    Destination:=Sheets(sheetname).Range("A1")
    Next
    Err.Clear
    Sheets("MA02_MONTHLY").Range("A1").CurrentRegion.AutoFilter

End Sub

感谢您的帮助！