Sheet2.Range("B2:f" & LastTransRow).AdvancedFilter xlFilterCopy, criteriaRange:=Sheet2.Range("p2:q3"), copyToRange:=Sheet2.Range("w2:aa2&quo