VBA: Copy specific cells to another worksheet

[FatWhale38]

Dear all

I am having trouble trying to put together a macro.

In Sheet1, I have my data table. I put a simplified version below:

Gender	Breed	City Council	Microchip Number	Status
M	Dog	Council A	1030999876287540	Adopted
F	Dog	Council C	4425588004585700
F	Cat	Council B	8735364841765360	Adopted
M	Cat	Council A	3351709516296290

<tbody>
</tbody>

If the animal has been adopted, I need to move the details to Sheet2.

I need to make 3 rows for each entry (one for the family adopting the animal, one for the council and one for our records).

I have to copy the relevant details in to specific cells in Sheet2 ie:
- microchip number to cell K2 (through till K4)
- Council details in L2 (through till L4)
etc.

And then repeat for the next adopted animal.

How do I script the macro to save me from having to copy paste every single row manually?

Many thanks in advance!

 

[FatWhale38]

Another thought:

Would it be possible to have in another column, defining say M2 and the macro copies the C2 (ie the council details) to M2 in Sheet2?

Thanks again!