Pessoal, boa noite!
Estou com muita dificuldade em fazer um rotina. As pesquisas que realizei não me ajudam a encontrar um caminho.
Preciso adicionar itens em uma Listiview por etapas, na mesma linha para o mesmo produto. Quando retornar ao 1º evento adiciona linha no listivew para novo produto.
Estou conseguindo fazer mas para cada adição de item, uma nova linha é criada.

1º Evento - ADICIONA 6 SUBITENS AO MEU PRODUTO

Private Sub cmb_tipo_Click()
Dim vcodigo As String
Dim i As Long
Dim UltimaLinha As Long
Sheets("Cores").Select
    ActiveSheet.Range("A2").Select
    UltimaLinha = Sheets("Cores").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
        vcodigo = txt_codigo
       lin = 2
        For i = 2 To UltimaLinha
        If Range("A" & i).Value = vcodigo Then
      
            Set linha = ListView1.ListItems.Add(Text:=Sheets("Cores").Range("A" & i).Value)
            linha.ListSubItems.Add Text:=Sheets("Cores").Range("B" & i).Value
            linha.ListSubItems.Add Text:=Sheets("Cores").Range("C" & i).Value
            linha.ListSubItems.Add Text:=Sheets("Cores").Range("D" & i).Value
            linha.ListSubItems.Add Text:=Sheets("Cores").Range("E" & i).Value
            linha.ListSubItems.Add Text:=Sheets("Cores").Range("F" & i).Value
 Exit For
 End If
 Next

2º Evento - ADICIONA O 7º SUBITEM AO MEU PRODUTO - PORÉM ESTÁ ADICIONANDO NA LINHA DE BAIXO!?

Private Sub txt_area_AfterUpdate()
ListView1.ListItems.Add.SubItems(6) = txt_area
End Sub

Agradeço a atenção.
Robson