Sub Populate2D()
'declare the 2D array Dim intA(2, 3) As Integer
'declare variables Dim rw As Integer Dim col As Integer
'populate the array intA(0, 0) = 45 intA(0, 1) = 50 intA(0, 2) = 55 intA(0, 3) = 60 intA(1, 0) = 65 intA(1, 1) = 70 intA(1, 2) = 75 intA(1, 3) = 80 intA(2, 0) = 85 intA(2, 1) = 90 intA(2, 2) = 95 intA(2, 3) = 100
'loop through the array and populate Excel For rw = 0 To 2 For col = 0 To 3 Cells(rw + 1, col + 1).Value = intA(rw, col) Next col Next rw
End Sub