Guys got it working, must have paste it incorrectly

Thanks


"John" wrote in message
...
Guys I'm getting a syntax error on both your codes, am I missing
something? Where does the 'CurrentRegion' come from?


"Nigel" wrote in message
...
Dim LastRow as Long
LastRow = Sheets("Database").Cells(Rows.Count,1).End(xlup).R ow


With Sheets("Database").Select
Range("A1:T" & LastRow).AdvancedFilter Action:=xlFilterCopy,

CriteriaRange:=Range( _
"V1:V2"), CopyToRange:=Range("X1:AQ1"), Unique:=False
Range("A1").Select

--
Cheers
Nigel



"John" wrote in message
...
I've applied an Advanced Filter to a Range and simply recorded the
macro,
extract below, but my problem is that my data in the Database sheet is
dynamic and changes in Row length (not by column)

How can I incorporate a dynamic range via VBA with Advanced Filters?

Thanks



Sheets("Database").Select
Range("A1:T61").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"V1:V2"), CopyToRange:=Range("X1:AQ1"), Unique:=False
Range("A1").Select