currentregio

[gladiator_]

Sub Macro2()


Sheets("Sheet1").Range("A2:E235").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Sheet1!Criteria"), _
CopyToRange:=Sheets("Sheet2").Range("G2:K2"), _
Unique:=False
End Sub

i want to change the Range and use currentregion...

Sub Macro2()


Sheets("Sheet1").Range("A2").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Sheet1!Criteria"), _
CopyToRange:=Sheets("Sheet2").Range("G2:K2"), _
Unique:=False
End Sub
but it gives me an error...whyyy??

[shg]

Welcome to the board, g.

Please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.