title: Autofilter Macro, then copy visible data ONLY and paste to next available row
body: <p>So I have a macro that automatically chooses values in an autofilter based on a date.</p>
  
  <p>This works great. However I need it to copy ONLY the visible cells with data and paste it into the NEXT available row in worksheet called "referral". </p>
  
  <pre><code>Sub Referral()
      Application.ScreenUpdating = False
  
      With Sheets("Raw")
          Sheets("Raw").ShowAllData
          Sheets("Raw").Range("A1:BK1").AutoFilter Field:=14, _
          Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy")
          Sheets("Raw").Range("A1:BL50000").Copy
      End With
  End Sub
  </code></pre>