title: Trying to copy over data to a dashboard and it is not copying over and I am not sure why
body: <p>I have an advanced filter filtering data in a database based on dates. I am trying to get the results to show up on a dashboard but it is not copying over. My code is below.</p>
  <pre><code>Dim PLRow As Long
  Dim LastTransRow As Long
  Dim AcctRow As Long
  With Sheet1
  .Range(&quot;F52:J99999&quot;).ClearContents
  LastTransRow = Sheet6.Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Row
  Sheet6.Range(&quot;AK3:AP99999&quot;).ClearContents
  Sheet6.Range(&quot;A2:F&quot; &amp; LastTransRow).AdvancedFilter xlFilterCopy, CriteriaRange:=Sheet6.Range(&quot;AA2:AC3&quot;), CopyToRange:=Sheet6.Range(&quot;AK2:AP99999&quot;), Unique:=True
  If Sheet6.Range(&quot;AK3&quot;).End(xlUp).Row &lt; 3 Then GoTo NoResults
  PLRow = 52 'Set Intial Profit and Loss Row
  
  'Add in Income Accounts
  For AcctRow = 3 To 17
      If Sheet6.Range(&quot;M&quot; &amp; AcctRow).Value = &quot;Income&quot; And Sheet6.Range(&quot;N&quot; &amp; AcctRow).Value &lt;&gt; 0 Then
          .Range(&quot;H&quot; &amp; PLRow).Value = Sheet6.Range(&quot;L&quot; &amp; AcctRow).Value 'Account Name
          .Range(&quot;I&quot; &amp; PLRow).Value = Sheet6.Range(&quot;N&quot; &amp; AcctRow).Value 'Account Value
          PLRow = PLRow + 1
      End If
  Next AcctRow
  .Range(&quot;G&quot; &amp; PLRow).Value = &quot;Total Income&quot;
  .Range(&quot;I&quot; &amp; PLRow).Value = Sheet6.Range(&quot;TotIncome&quot;).Value
  PLRow = PLRow + 2
  </code></pre>
  <p>What do I need to change in my code so that it will copy over from Sheet 6 to Sheet 1?</p>