Guru do Excel e Power BI

Bom dia a todos

Estou elaborando um PDV onde coloco as itens de venda na Listview e posteriormente colocar em uma sheets onde posso ter um histórico de todas as vendas.

O grande problema esta em enviar as informações para a sheets, só estou conseguindo colocar na primeira linha e quando efetuo a outra venda a venda anterior é substituída.

Esse é o código que utilizei

Dim i, j As Integer

Plan7.Range(Cells(2, 4), Cells(10000, 8)).Select
Selection.ClearContents


'Loop para as linhas
For i = 1 To ListView1.ListItems.Count

Plan7.Cells(i + 1, 1) = ListView1.ListItems(i).Text

'loop para a coluna
For j = 1 To 1
Plan7.Cells(i + 1, 4) = ListView1.ListItems(i).ListSubItems(1).Text
Plan7.Cells(i + 1, 5) = ListView1.ListItems(i).ListSubItems(2).Text
Plan7.Cells(i + 1, 6) = ListView1.ListItems(i).ListSubItems(3).Text
Plan7.Cells(i + 1, 7) = ListView1.ListItems(i).ListSubItems(4).Text
Plan7.Cells(i + 1, 8) = ListView1.ListItems(i).ListSubItems(5).Text


Next j

Next i

Olá,
Poderia postar a sua planilha? assim facilita para poder lhe ajudar!