Copy cell data and insert into another worksheet based upon cell

I am still trying to learn this and am working on a project and if I could get this into a macro it would save me alot of time.

Worksheet I need cells copied from is called County and data starts on row 3 and in column D there will be either a 1,2,3 or 4 which is what will be the basis for what cells to copy where.

If the row has a 1 in column d I need to copy the corresponding cell data in a:c and insert in worksheet scale above the row that has level 1 subtotal in column a and so of for level 2,3,4.