Copy Paste from a variable range to variable sheets in VBA 2013

[sandero1970]

Dear Fellows,

I have a problem with a macro that should copy a range of data (transposed) in a sopecific sheet. The point is that:
1) a reference to the sheet is done in colomn A of sheet 2 (from P1 to P30)
2) the number of lines to be copied and transposed is not the same for each P (P1 to P30)

so practically, here is the table:

sheet	PC	Name	Status
P1	P1_C1	NTBA P1_C1	STBA P1_C1
P1	P1_C2	NTBA P1_C2	STBA P1_C2
P1	P1_C3	NTBA P1_C3	STBA P1_C3
P2	P2_C1	NTBA P2_C1	STBA P2_C1
P2	P2_C2	NTBA P2_C2	STBA P2_C2
P2	P2_C3	NTBA P2_C3	STBA P2_C3
P2	P2_C4	NTBA P2_C4	STBA P2_C4
P3	P3_C1	NTBA P3_C1	STBA P3_C1
P3	P3_C2	NTBA P3_C2	STBA P3_C2
P4	P4_C1	NTBA P4_C1	STBA P4_C1
P4	P4_C2	NTBA P4_C2	STBA P4_C2
P4	P4_C3	NTBA P4_C3	STBA P4_C3
P5	P5_C1	NTBA P5_C1	STBA P5_C1
P5	P5_C2	NTBA P5_C2	STBA P5_C2
P5	P5_C3	NTBA P5_C3	STBA P5_C3
P5	P5_C4	NTBA P5_C4	STBA P5_C4
P6	P6_C1	NTBA P6_C1	STBA P6_C1
P6	P6_C2	NTBA P6_C2	STBA P6_C2

<tbody>
</tbody><colgroup><col><col><col><col></colgroup>

So I want that:
RANGE (C2:D4) is pasted in worksheet P1
RANGE (C5:D8) is pasted in WS P2
...
And so on untill the last unblanck cell in column A is reached.

Thank you