this code every time giving me an error Run-Time error 1004
method 'Range' of object_ worksheet failed
Repc.Range("B8:P").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=.Range("F1:K2"), _
CopyToRange:=.Range("E16:O16"), Unique:=False
this code every time giving me an error Run-Time error 1004
method 'Range' of object_ worksheet failed
Repc.Range("B8:P").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=.Range("F1:K2"), _
CopyToRange:=.Range("E16:O16"), Unique:=False
Amin
You tried to define a range:
Repc.Range("B8:P").AdvancedFilter...
but that doesn't define a range. Try:
Repc.Range("B8:P50").AdvancedFilter
but change the P row number to suit (you didn't attach a file so I'm just guessing 42 data rows)
Repc.Range("B8:P" & LstRw).AdvancedFilter