Fill a table with column values

[LuisVilarMoreira]

Hello everyone

I have to populate a table (21 (d to x) x 60 (11 to 72 ) with values from a column (a1) in another spreadsheet.

I can use:

Sheets("REL_SOCP").Range("d11") = sheets("D_socp_tts").Range("a2")
Sheets("REL_SOCP").Range("e11") = Sheets("D_socp_tts").Range("a3")

But there must be a simpler solution.
Thanks
Best regards