Excel 试图将数据复制到仪表板，但它没有复制，我不知道为什么

我有一个高级过滤器，根据日期过滤数据库中的数据。我试图让结果显示在仪表板上，但它没有复制过来。我的代码如下

Dim PLRow As Long
Dim LastTransRow As Long
Dim AcctRow As Long
With Sheet1
.Range("F52:J99999").ClearContents
LastTransRow = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
Sheet6.Range("AK3:AP99999").ClearContents
Sheet6.Range("A2:F" & LastTransRow).AdvancedFilter xlFilterCopy, CriteriaRange:=Sheet6.Range("AA2:AC3"), CopyToRange:=Sheet6.Range("AK2:AP99999"), Unique:=True
If Sheet6.Range("AK3").End(xlUp).Row < 3 Then GoTo NoResults
PLRow = 52 'Set Intial Profit and Loss Row

'Add in Income Accounts
For AcctRow = 3 To 17
    If Sheet6.Range("M" & AcctRow).Value = "Income" And Sheet6.Range("N" & AcctRow).Value <> 0 Then
        .Range("H" & PLRow).Value = Sheet6.Range("L" & AcctRow).Value 'Account Name
        .Range("I" & PLRow).Value = Sheet6.Range("N" & AcctRow).Value 'Account Value
        PLRow = PLRow + 1
    End If
Next AcctRow
.Range("G" & PLRow).Value = "Total Income"
.Range("I" & PLRow).Value = Sheet6.Range("TotIncome").Value
PLRow = PLRow + 2

Dim PLRow尽可能长
最后一行的长度
暗淡如长
附页1
.Range（“F52:J99999”）.ClearContents
LastTransRow=Sheet6.Range（“A”和Rows.Count）.End（xlUp）.Row
表6.范围（“AK3:AP99999”）.清晰目录
Sheet6.Range（“A2:F”和LastTransRow）。AdvancedFilter xlFilterCopy，CriteriaRange:=Sheet6.Range（“AA2:AC3”），CopyToRange:=Sheet6.Range（“AK2:AP99999”），Unique:=True
如果表6.范围（“AK3”）.结束（xlUp）.行<3，则转到NoResults
PLRow=52'设定初始损益行
“加上收入账户
对于AcctRow=3到17
如果Sheet6.Range（“M”和accrow）.Value=“Income”和Sheet6.Range（“N”和accrow）.Value为0，则
.Range（“H”和PLRow）.Value=Sheet6.Range（“L”和accrow）.Value“帐户名”
.Range（“I”和PLRow）.Value=Sheet6.Range（“N”和accrow）.Value“科目值”
PLRow=PLRow+1
如果结束
下一个阿克特罗
.Range（“G”和PLRow）.Value=“总收入”
.范围（“I”和PLRow）.值=表6.范围（“总收入”）.值
PLRow=PLRow+2

---

我需要在我的代码中做哪些更改，以便将其从第6页复制到第1页？

如果Sheet6.Range（“AK3”）.End（xlUp）。Row<3然后转到NoResults

-这将始终是正确的。感谢您的关注。这解决了我的问题