[RESOLVED] VB6 - Merge Cells in spreadsheet

[Giftx]

PLEASE DISREGARD THE PREVIOUS POST. I UPLOADED THE WRONG SPREADSHEET.

Good morning gentlemen,
Please see the spreadsheet attachment and see the horror in its display.

However, I've been able to accomplish my objective with this code:

Code:
xlWksht.Range(Cells(ii + 1, 1), Cells(ii + 1, 8)).Merge
But now, the data in the cell is centered and the cell is astronomically large (occupies the entire screen)

Problem now is: (a) I want the data left-justified (b) and the cells minimized just enough so that the data fits.
Thanks all.
GiftX