error al tratar de exportar datos desde vb 6 a excel

[emilio21]

solucionado...

Código:

i = 8
                For u = 1 To compra.ListItems.Count
                    o = 1
                    .cells(i, o).Formula = compra.ListItems.item(u).Text
                    For o = 1 To compra.ColumnHeaders.Count -1
                        .cells(i, o + 1).Formula = compra.ListItems(u).SubItems(o)
                    Next o
                    .RANGE("A" & i & ":E" & i).BORDERS.Color = RGB(0, 0, 200)
                    i = i + 1
                Next u

donde i indica la fila donde va a partir....