VBA Advanced Filter

[Donai]

Hi,

How can i add code offset(1,0) and Resize(,15) after the code filters for the data so when it gets copied to range it will only copy the required data.

ShtTemp.Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("rngAsset"), CopyToRange:=shtAsset.Range("a6"), Unique:=False

 

[Donai]

*bump*

 

[AlphaFrog]

ShtTemp.Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("rngAsset"), Unique:=False

ShtTemp.Range("A5").CurrentRegion.Offset(1).Resize(, 15).Copy Destination:=shtAsset.Range("A6")

ShtTemp.ShowAllData