MshflexGrid a Excel Ayuda!!

[pachu93]

Buenas, creo que es la primera vez que utilizo el foro y espero que me puedan ayudar, aca mi problema:
Tengo un mshflexgrid conectado a una base access que mediante un boton exporto a excel, el codigo de ese boton es:

Private Sub Command4_Click()
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
For j = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = j
objWorkbook.ActiveSheet.Cells(i + 3, j + 1).Value = MSHFlexGrid1.Text
Next
Next
objExcel.Cells.Select
objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub

Este codigo me funciona a la perfeccion, pero no logra lo que quiero, ya que exporta todos los datos juntos y yo necesito que los separe segun el campo "Categoria" es decir me los exporta de esta maner:

Nombre Apellido Categoria
Patricio Rodriguez 0.70
Javier Perez 0.80

y yo quiero que me exporte de la siguiente manera:


0.70
Nombre Apellido Categoria
Patricio Rodriguez 0.70

0.80
Nombre Apellido Categoria
Javier Rodriguez 0.80


Es posible? Si no se puede con excel se puede con word o haciendo un report??

Gracias!!