Excel 将列复制到从一张图纸到另一张图纸的最后一行

我有以下问题。我有一个数组KWarray，它包含周数。此数组用于在工作表“导入”中设置筛选器。我的宏现在会自动为数组的每个元素设置过滤器，生成一个新的工作表，并应将多个列（仅包含数据）复制到此新工作表中。我这样做是因为原始数据包含许多不必要的基于机器的列，我不需要这些列。有了复制的数据，我以后需要制作一张图表。但现在，每次我运行宏时，“运行时错误1004”“应用程序定义或对象定义错误”。你们能看到错误吗

Dim x As Long
Dim lrow2 As Long
Dim ws As Worksheet
Dim lrowC As Long

Dim Data1 As Range
Dim Data2 As Range

For x = LBound(KWarray) To UBound(KWarray)

    Sheets("Import").Range("A:AS").Autofilter Field:=2, Criteria1:=KWarray(x)
    'lrowC = Sheets("Import").Cells(Rows.count, 1).End(xlUp).Row
    
    Sheets.Add(After:=Sheets("Import")).Name = "Messwerte KW " & KWarray(x)
    

    With Sheets("Import")
        .Range("A:A" & Cells(Rows.count, "A").End(xlUp).Row).Copy Sheets("Messwerte KW " & KWarray(x)).Range("A:A")
        .Range("C:C" & Cells(Rows.count, "A").End(xlUp).Row).Copy Sheets("Messwerte KW " & KWarray(x)).Range("B:B")
        .Range("R:R" & Cells(Rows.count, "A").End(xlUp).Row).Copy Sheets("Messwerte KW " & KWarray(x)).Range("C:C")
        .Range("S:S" & Cells(Rows.count, "A").End(xlUp).Row).Copy Sheets("Messwerte KW " & KWarray(x)).Range("D:D")
        .Range("T:T" & Cells(Rows.count, "A").End(xlUp).Row).Copy Sheets("Messwerte KW " & KWarray(x)).Range("E:E")
        .Range("U:U" & Cells(Rows.count, "A").End(xlUp).Row).Copy Sheets("Messwerte KW " & KWarray(x)).Range("F:F")
    End With

.Range（“A:A”和Cells（Rows.count，“A”）.End（xlUp.Row）

将生成类似于

Range（“A:A10”）

的内容，该范围无效。我想这就是问题所在。