Warning: Rookie
I want to filter my dataset, select column B & C to copy, but exclude the header row. I am having a hard time offsetting the selected range. I get a compile error on what I try.
Here is my code (yes, I know, its a little juvenile and I will clean it up, but I need to see things clearer at first):
Sub GetBarrelQualifiers()
'
' GetBarrelQualifiers
'
'
Application.ScreenUpdating = False
Sheets("Entries").Select
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=1
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=1, Criteria1:="NEW TEAM" ' New teams
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=12, Criteria1:="No" ' Not Wrangler
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=13, Criteria1:="No" ' Not Leadline
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=4, Criteria1:="Yes" ' Running in barrels
Range("B:C").Select
' Selection.Offset(1,0)
Selection.Copy
Sheets("B-QF").Select
Cells(2, 1).Select
ActiveSheet.Paste
Sheets("Entries").Select
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=1
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=4
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=12
ActiveSheet.Range("$A$1:$M$17").AutoFilter Field:=13
Application.ScreenUpdating = True
Sheets("B-QF").Select
Cells(1, 1).Select
End Sub
It works great, except I'm getting the header row included and pasted on the new sheet.
I will have a follow up question, if it wanted to be tackled now: how do I append the data, rather than overwrite it? Meaning, I need to find the last populated cell in Sheet "B-QF" column A, then paste in the next cell down.
Thanks in advance!
Bookmarks