[RESOLVED] VB6 - Merge Cells in spreadsheet

[westconn1]

the hardcoded loop was just to fix the sample sheet and not needed when populating the sheet
the first post (1 line) should put all the data on one line

this code should get the display just as you want it
autofit did not work for the height of the row, so i had to calculate the height manually, this loop is to convert the sample sheet, but you should be able to incorporate it into your code to populate the sheet, rather than as a separate loop

Set s = Sheets("TblBiWeeklyPeriodExport")
For a = 8 To s.UsedRange.Rows.Count Step 2 ' first cell with comment to end
With s.Range(Cells(a, 1), Cells(a, 8))
If IsEmpty(s.Range("a" & a)) Then Exit For  'your used range was well below the data
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
'        .AddIndent = False
        .IndentLevel = 0
'        .ShrinkToFit = False
        .MergeCells = True
        w = 0
        For Each c In s.Range("A8:h8"): w = w + c.ColumnWidth: Next
        .RowHeight = .RowHeight * Len(s.Range("A" & a).Text) / w
 
End With
Next