Actually, looking at this again, I wasted an array slot. The line that dims
SourceArray could be changed to
Dim SourceArray(1 To 3) As String
Not that it would make too much difference.

"Kleev" wrote:

Try this:

Sub ColToNewRow()
Dim wsSource As Worksheet, wsDest As Worksheet
Dim SourceStartRow As Long, SourceFinalRow As Long
Dim DestStartRow As Long
Dim SourceArray(3) As String
Dim rng As Range, cell As Range
Dim i As Integer


"Ray Elias" wrote:

Let's say I have a workbook with 6 columns of data and 2 rows of data.
(simplified for easier explanation)

I want to, in a new spreadsheet, re-organize it so it's better formatted for
printing.

Here's what I want to do. For each existing row, I want to turn it into 2
rows on the new workbook.

For example, In the new workbook, I want row 1 columns A-C in row 1 Columns
A-C, and I want row 1 columns D-F in row 2 columns A-E. Then from the old
workbook, I want the old row 2 to take up rows 3 & 4 in the new workbook.

OLD:
R1CA R1CB R1CC R1CD R1CE R1CF...
R2CA R2CB R2CC R2CD R2CE R2CF...

NEW:
R1CA R1CB R1CC
R1CD R1CE R1CF
R2CA R2CB R2CC
R2CD R2CE R2CF


I cannot, for the LIFE of me, figure out how to do this
(easily/automatically) for a LARGE amount of data (200 Rows, 20 Columns ---
400 Rows, 10 Columns).

Any help would be GREATLY appreciated (before I pull out the remainder of my
hair)