excel-在vba中复制和粘贴过滤数据

我是VBA新手，我正在尝试将过滤数据复制并粘贴到另一张表中。当我启动代码时，什么都没有发生，也没有错误消息。

“输入表”；唐尼草稿；K列和L列：

我在这个表中添加了一个过滤器>；BU中的过滤（K列）：“；FR500“；我把K列和L列复制到另一张纸上：

在A栏中：BU“；FR500“；在C:AL中与FR500相关）。在下面的示例中，它是我们在第6行和第7行中看到的（它不会总是从指定的行开始）。

“在工作表中输出期望值”；“IML”：

这里是代码（我只想复制/粘贴“BU”）：

    Dim FR500 As Range
    Dim LastRow As Double
    Dim LastRow2 As Double
    
    LastRow = Sheets("DONNEE DRAFT").Range("K" & Rows.Count).End(xlUp).Row + 1 'last row
    LastRow2 = Sheets("IML").Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Set FR500 = Sheets("DONNEE DRAFT").Range("K1").CurrentRegion
    Sheets("DONNEE DRAFT").AutoFilterMode = False 'turning off all filter
    FR500.AutoFilter Field:=1, Criteria1:="FR500" 'filtering data

    Range("K" & LastRow).Copy Destination:=Sheets("IML").Range("A" & LastRow2)