For-Next loop Problem

Hej,

Jeg har følgende:

Kolonne A 1 til 25: Tilfældige tal
Kolonne B 1 til 25: Tilfældige tal

Sub StoreInArray()

Dim Row_1(25) As Single
Dim i As Integer

For i = 1 To 25
    Row_1(i) = Cells(i, 1).Value
Next

End Sub

1. Create an array of length 25 with option Base 1.
2. Use a For‐Next loop to iterate through the numbers.

3. For each iteration of the loop, read the index in column B and
store it in an integer variable. Use that variable as index of the array and store the corresponding number of column A in that location of the array.
4. To test that you performed step 1 through 3 correctly, create a new For‐Next loop and use it to write the numbers from the array to column D of the worksheet.

Ovenstående Sub gennemfører pkt. 1 og 2, men jeg er usikker på hvordan jeg laver pkt 3 og 4.

Nogen som kan hjælpe med hvordan dette skal løses?

//Mads...