VBA: Loop og Copy

I Min workbook har jeg 2 sheets: "Pris" og "Data".

I worksheet "Pris" har jeg i kolonne A en række datoer. I rækkerne B:M har jeg priser.

Jeg vil gerne have kopieret over i worksheet "Data":

Datoerne fra kolonne A i "Pris" (DDMMÅÅÅ) ==> Kolonne B i "Data" (ÅÅÅÅMMDD)
Priser fra kolonne B i "Pris" ==> Kolonne A i "Data"
Datoerne fra kolonne A i "Pris" (DDMMÅÅÅ) ==> Kolonne B i "Data" (ÅÅÅÅMMDD)
Priser fra kolonne C i "Pris" ==> Kolonne A i "Data"
Datoerne fra kolonne A i "Pris" (DDMMÅÅÅ) ==> Kolonne B i "Data" (ÅÅÅÅMMDD)
Priser fra kolonne D i "Pris" ==> Kolonne A i "Data"
osv

20000 20230106
230 20230107
400 20230108
22000 20230106
250 20230107
600 20230108
100000 20230106
259 20230107
600 20230108