Find record

I already have a macro that finds and copies the first row any record in a column to the next column.

I require some help to select say DATA CA001/10 in the records and copy to a new column.

Please refer to the attached example.

Thanks David