Posts by Kaper

With ThisWorkbook.Sheets(1) 
    Dim mycolumn As Long      
    For i = 1 To n 
      mycolumn = .cells(1,.columns.count).end(xltoleft) 
      If mycolumn<>1 Then mycolumn = mycolumn+1 
      .cells(i,mycolumn).Resize(, UBound(a(i)) + 1).Value = a(i) 
    Next 
End With

With ThisWorkbook.Sheets(1)
    dim mycolumn as long
    mycolumn = .cells(1,.columns.count).end(xltoleft)
    if mycolumn<>1 then mycolumn = mycolumn+1
    For i = 1 To n 
        .cells(i,mycolumn).Resize(, UBound(a(i)) + 1).Value = a(i) 
    Next 
End With

With ThisWorkbook.Sheets(1).Range("a1")
        For i = 1 To n 
            .Offset(i - 1).Resize(, UBound(a(i)) + 1).Value = a(i) 
        Next 
    End With

With ThisWorkbook.Sheets(1).cells(rows.count,"A").end(xlup) 
        For i = 1 To n 
            .Offset(i).Resize(, UBound(a(i)) + 1).Value = a(i) 
        Next 
    End With