VB 6.0 - spreadsheet MergeCells not working

[tgifgemini]

Hello everyone,
I have a spreadsheet that has data in a report format. The last column "Description", has long text value which are all bunched up inside one cell. My intension is to merge(expand) the text to fill other cells (G, H, I) and make it readable. See spreadsheet attachment
I am using the code below but it's not accomplishing the task:

xlWksht.Cells(i, 7).MergeCells = True

Below is my entire module:

i = 6
 Do While Not rsin.EOF
    xlWksht.Cells(i, 1).Value = rsin![RequestID]
    xlWksht.Cells(i, 2).Value = rsin![Priority]
    xlWksht.Cells(i, 3).Value = rsin![Initials]
    xlWksht.Cells(i, 4).Value = rsin![Status]
    xlWksht.Cells(i, 5).Value = rsin![DReceivedDate]
    xlWksht.Cells(i, 6).Value = rsin![UpdateDate]
    xlWksht.Cells(i, 7).Value = rsin![Description]
    xlWksht.Cells(i, 7).MergeCells = True
    i = i + 2
    rsin.MoveNext
 Loop