Hi all
This code looks for a string value in certain column, copies the values then clears cells
Set Mycell = Sheets("Sorted Data").Range("A:A").Find(What:="*ASDASTORESPLC*") 'salary
While Not Mycell Is Nothing
Mycell.Offset(0, 1).Copy Range("C65536").End(xlUp)(2)
Mycell.Clear
Set Mycell =...