Excel VBA高级过滤器错误

我试图解决一个问题，当运行VBA代码来自动执行高级过滤功能时。

背景：我正在分析不同客户之间的付款情况。

我有下表，客户已向另一个客户号码付款。F列中是代表我希望保留在表中的客户的客户ID。

初始表格

如果我使用高级过滤功能，我会得到下表，这是正确的。

高级过滤表

但是，当我使用以下代码时：

Sub advanced_filter_2()

Dim rgData As Range, rgCriteria As Range, rgOutput As Range
   
    Set rgData = ThisWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
    Set rgCriteria = ThisWorkbook.Worksheets("Sheet1").Range("F1").CurrentRegion
    Set rgOutput = ThisWorkbook.Worksheets("Sheet2").Range("A1")
    
    rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgOutput

End Sub

我得到以下结果。请注意，虽然在B列和D列中正确过滤了客户ID，但C列似乎从A列复制了数据。

宏观结果

我想知道如何修改上面的代码来纠正这个错误？