Something wrong with the Marco

[Eric Tsang]

Dear all

I tried to make a Dynamic range, and it does not work on the code, i wonder what's wrong
Can anyone be kind enough to help

Thanks in advance

Sub FilterMe8()
'
' FilterMe8 Macro
'

Application.CutCopyMode = False
Application.CutCopyMode = False
Sheet2.Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=sheet1.Range("F2:H3"), CopyToRange:=Sheet1.Range("A7:C7"), Unique:=False[/COLOR]
End Sub

My data starts at Sheet2 (data) "A5". and i want the it as a dynamic range

Thanks
Eric