Try something like:Dim vData(1 To 100, 1 To 3)iRow = 0For x = 1 To 10: For y = 1 To 10iRow = iRow + 1vData(iRow, 1) = xvData(iRow, 2) = yvData(iRow, 3) = x + yNext y: Next xRange("A1:C100") = vData