Werte in mehrere Spalten einfügen

Sub geschrieben:

Sub Test()
Dim x()
x = Range("C1:C18")
For i = 1 To 18
x(i, 1) = Cells(Int(Rnd() * 18 + 1), "A").Value
Next i
[C1:C18] = x()
End Sub

Die 

Sub macht nichts anderes aus einer bestehenden Liste 18 Zufallswerte zu entnehmen und diese in  _
die Spalte C zu schreiben.
Was muss ich schreiben, dass sie mir 18 Zufallswerte in die Spalten D bis Z schreibt?
Den Code a lá Copy & Paste 23x und jeweils der geänderten Spaltennummer einzufügen, ist ja  _
nicht wirklich schön.
Hoffe, dass ihr mir helfen könnt und bedanke mich schon im Voraus!