Hi board,
I recorded the following macro:
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Range("$A$1:$Q$2975").AutoFilter Field:=2, Criteria1:="2014"
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False...