Copy all filtered data

[thardin]

Here is the code I have so far to filter data. But I wasn't sure, if I did this effectively with ".UsedRange."
What I want to do is filter the data using a range that changes daily, copy only the filtered data(not the headings), and paste into another worksheet starting in cell A2.

What do you recommend?

Sub Filter()

Range("Q6").Select
Selection.AutoFilter
ActiveSheet.UsedRange.AutoFIlter Field:=17, Criteria1=Array("C",_ "C1", "C2", "L"), Operator:=xlFilterValues

EndSub

 

[Fluff]

Do you have any blank rows in your data?
Also what row contains the headers?

 

[thardin]

Do you have any blank rows in your data?
Also what row contains the headers?

Yes. The range of my data is from A to Q with more than 2,000 rows (that changes daily). Column M and P have a lot of blank cells which makes copying kinda tricky using the crtl + arrow keys.

 

[thardin]

Yes. The range of my data is from A to Q with more than 2,000 rows (that changes daily). Column M and P have a lot of blank cells which makes copying kinda tricky using the crtl + arrow keys.

Do you have any blank rows in your data?
Also what row contains the headers?

I don't have any blank rows, just blank cells.
the first row is the headers.

 

[Fluff]

Ok, how about

Sub thardin()
   With ActiveSheet
      .Range("A1:Q1").AutoFilter 17, Array("C", "C1", "C2", "L"), xlFilterValues
      .AutoFilter.Range.Offset(1).Copy Sheets("Sheets2").Range("A2")
      .AutoFilterMode = False
   End With
End Sub

Change the destination sheet name to suit.

 

[thardin]

Well how do I add an IF Then statement to this, in order to do this task only when the filter has results and if it doesn't, I want to run this macro:

Application.Run "personal. Xlsb! FirmSignoff

 

[Fluff]

As that a different question, it needs a new thread. Thanks