Report Generating from an Unknown Quantity of Data

If you edit your macro that creates the column A listing so that there is a blank space between each data set, this gets really easy. Just change your Offset(1,0) to Offset(2,0) in that code and that should do it.

Option Explicit

Sub ReformatData()
'Jerry Beaucaire   (5/12/2010)
Dim CpyRNG  As Range
Dim Sctn    As Long
Dim CpyCol  As Long
Dim NextRow As Long
Dim wsRpt   As Worksheet
Dim wsRaw   As Worksheet

Set wsRaw = Sheets("Raw Results")
Set wsRpt = Sheets("Report")

wsRpt.Cells.Clear
Set CpyRNG = wsRaw.Range("A:A").SpecialCells(xlCellTypeConstants)
CpyCol = 1
NextRow = 1

For Sctn = 1 To CpyRNG.Areas.Count
    CpyRNG.Areas(Sctn).Copy wsRpt.Cells(NextRow, CpyCol)
    If CpyCol + 2 > 11 Then
        CpyCol = 1
        NextRow = wsRpt.Cells.Find("*", wsRpt.Cells(Rows.Count, Columns.Count), _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 2
    Else
        CpyCol = CpyCol + 2
    End If
Next Sctn

wsRpt.Columns.AutoFit
End Sub