Preenchimento ListView || VBA + Excel

Olá, estou desenvolvendo um aplicativo para uma empresa de instalações elétricas.

No aplicativo existe uma parte chamada orçamentos, que contem os campos:

- Local (name: orcC_local)

- Serviço (name: orcC_serv)

- Valor (name: orcC_val)

Como podem existir diversos serviços em uma mesma casa, ele vai preencher os campos e clicar no botão Adicionar (name:btn_orc_add), e em seguida deve aparecer no ListView (name: p_orc).

Até ai tudo bem o problema é que o ListView lista apenas o primeiro.

Os dados dos campos preenchidos estão dispostas de maneira incomum e não consigo preencher ele

O cadastro dos campos são realizados na mesma linha alternando de 3 em 3, para eu conseguir associar com o id do cliente e o id do orçamento.

O código de gravação na planilha funciona perfeitamente, a pessoa clica em adicionar ele preenche no excel, no entanto no listview independente da quantidade registrada ele exibe apenas o primeiro.

Quando clica em Adicionar ele chama o módulo de cadastro e o módulo de preenchimento do ListView (call Cadastros.LV_M)

Sub LV_M()

linha = 2

coluna = 24

UL = Plan1.Cells(Plan1.Cells.Rows.Count, 21).End(xlUp).Row + 1

adm.p_orc.ListItems.Clear

For i = linha To UL

If Sheets("cad_clt").Cells(i, 21) = adm.orcC_id.Text Then

For j = coluna To 500

If Sheets("cad_clt").Cells(i, j + 3) <> "" & Sheets("cad_clt").Cells(i, j + 4) <> "" & Sheets("cad_clt").Cells(i, j + 5) <> "" Then

Set li = adm.p_orc.ListItems.Add(Text:=Plan1.Cells(i, j + 3).Value)

li.ListSubItems.Add Text:=Plan1.Cells(i, j + 4).Value

li.ListSubItems.Add Text:=Plan1.Cells(i, j + 5).Value

End If

Exit For

Next

End If

Exit For

Next

End Sub

Se alguém souber como me ajudar a preencher esses dados.

Grato