Using macro to find and then copy and paste data

I need to create a macro to find a text string and then copy it and its associated value to a separate sheet

So in the example I want it to find 'Pig' on sheet 1 and copy and paste it on sheet 2 and also copy the value (23) and paste that on sheet 2 as well.

I need it to be a "find" as I want to run it on other sheets as well but pig may be in a different row than it is is on sheet 1.

I hope this makes sense and any help would be gratefully received.

Many thanks,

Jack