Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- With Sheets("Ticket_Info")
- Sheets("Import_Data").Columns("C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B2"), Unique:=True
- .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).SpecialCells(xlBlanks).Delete Shift:=xlUp
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement