Sub combinerows()

RowCount = 3
Columns("B:B").Insert
Do While Range("A" & RowCount) < ""
Rows(RowCount + 1).Insert
Range("C" & (RowCount + 1)) = Range("F" & RowCount)
Range("D" & (RowCount + 1)) = Range("G" & RowCount)
Range("E" & (RowCount + 1)) = Range("H" & RowCount)
Range("F" & RowCount & ":H" & RowCount).ClearContents
Range("B" & RowCount) = Range("C1")
Range("B" & (RowCount + 1)) = Range("F1")
RowCount = RowCount + 2
Loop
Rows("1:1").Delete
Range("F1:H1").ClearContents

End Sub


"Rob" wrote:

I'm having trouble transposing a spreadsheet with 2 column headers (dates for
the month across, with three sub columns beneath). I assume I'll need a VB
solution, but don't know how to construct them. Here is what I my original
data file looks like:

1-Dec-07 1-Dec-07 1-Dec-07 2-Dec-07 2-Dec-07 2-Dec-07
Page View Sessions Visitors Page View Sessions Visitors
LNX Code1 0 0 0 0 0 0
LNX Code2 20 1 1 10 2 2
LNX Code3 529 49 49 1756 109 107
LNX Code4 5294 431 431 4704 362 361

I want it to read like this:

Page View Sessions Visitors
LNX Code1 1-Dec-07 0 0 0
2-Dec-07 0 0 0
LNX Code2 1-Dec-07 20 1 1
2-Dec-07 10 2 2
LNX Code3 1-Dec-07 529 49 49
2-Dec-07 1756 109 107
LNX Code4 1-Dec-07 5294 431 431
2-Dec-07 4704 362 361

Any ideas?