Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sheets("All Data").Range("A50:K9999").AdvancedFilter Action:=xlFilterCopy, _
- CriteriaRange:=Range("C2:C3"), CopyToRange:=Range("A5:K9999"), Unique:= _
- False
- Range("C4").Select
- ActiveCell.FormulaR1C1 = "=LEFT(R[-1]C,3)"
- Range("C5").Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement