' create row headers
fg.MergeRow(0) = True
' four cells, will merge
fg.Cell(flexcpText, 0, 1, 0, 4) = "North"
' four cells, will merge
fg.Cell(flexcpText, 0, 5, 0, 8) = "South"
For i = 1 To 4
fg.Cell(flexcpText, 1, i, 1) = "Qtr " & i
fg.Cell(flexcpText, 1, i + 3, 1) = "Qtr " & i
Next
' create column header
fg.MergeCol(0) = True
' two cells, will merge
fg.Cell(flexcpText, 0, 0, 1, 0) = "Sales by " & _ "Product"
' align and autosize the cells
fg.Cell(flexcpAlignment, 0, 0, 1, fg.Cols - 1) _ = flexAlignCenterCenter
fg.AutoSize 1, fg.Cols - 1, False, 300