Desculpem sou que sou muito detalhista, horas resolvo aqui mesmo sozinho , oura nao.

Mas qual comando devo usar para quando na listview ja houver um produto inserido, nao duplicar o mesmo, e sim alterar apenas a sua QNT ?

Uso este comando abaixo para inserir o produto na listView.

Sub Universal()

Dim QNT_Custo
Dim Pesquisa
Dim Pesquisa1
Dim pesquisa2
Dim Pesquisa3
Dim Pesquisa4
Dim Pesquisa5
Dim Pesquisa6
Dim lista
Dim i As Integer
Dim K As Integer
Dim j As Integer

QNT_Geral = 1
QNT_Custo = 1

Dim intervalo As Range
Dim codigo As Integer
codigo = Ref.Caption

Sheets("Estoque").Activate

Set intervalo = Plan19.Range("B6:W605")
            
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 22, False) 'Preco
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 14, False) 'Oferta
  pesquisa2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False)  'Sabor
  
  Pesquisa3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) 'Apresentacao
If Pesquisa3 = "P" Then  'P = Pote C = Caps
  Pesquisa4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False) 'Peso
Else
  Pesquisa4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)  'Caps
End If
  Pesquisa5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) 'Preco
  Pesquisa6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)  'Sabor
  
  
  
    Set lista = ListView1.ListItems.Add(Text:=codigo)
    lista.ListSubItems.Add Text:=Pesquisa6 'Produto
    lista.ListSubItems.Add Text:=Pesquisa1 'Oferta
    lista.ListSubItems.Add Text:=QNT_Geral
    lista.ListSubItems.Add Text:=pesquisa2 'Sabor
    lista.ListSubItems.Add Text:=Pesquisa4 'Apresentacao
    
    lista.ListSubItems.Add Text:=Format(Pesquisa, "R$ #,##0.00") '  Pesquisa 'Preco de Venda
    lista.ListSubItems.Add Text:=Format(Pesquisa * QNT_Geral, "R$ #,##0.00") 'Total
    lista.ListSubItems.Add Text:=Format(Pesquisa5, "R$ #,##0.00") '  Pesquisa 'Preco unitario de custo
    lista.ListSubItems.Add Text:=Format(Pesquisa5 * QNT_Custo, "R$ #,##0.00") 'custo Total
    
'---------------------------------------------------------------------
'Somar dentro da ListView1
Dim Soma As Double

For i = 1 To ListView1.ListItems.Count
Soma = Soma + ListView1.ListItems.Item(i).SubItems(7) 'coluna 7
Next i

Total.Value = Soma
'---------------------------------------------------------------------
QNT_Geral = ""

'---------------------------------------------------------------------
Dim Soma2 As Double

For K = 1 To ListView1.ListItems.Count
Soma2 = Soma2 + ListView1.ListItems.Item(K).SubItems(3) 'coluna 1
Next K

LblTotal.Caption = "Total de Itens = " & Soma2
'---------------------------------------------------------------------

Dim Soma3 As Double

For j = 1 To ListView1.ListItems.Count
Soma3 = Soma3 + ListView1.ListItems.Item(j).SubItems(9)
Next j

Label_8.Caption = Format(Soma3, "R$ #,##0.00")
'---------------------------------------------------------------------

Contagem.Value = ListView1.ListItems.Count

'---------------------------------------------------------------------

Sheets("Fundo").Activate


End Sub