olá a todos estou com uma duvida aqui gostaria que nessa comparação ele nao adcionasse o nome mas sim removesse ou só pintasse tem como tirar esse add e colocar outra

If Ws.Cells(i, 1) = ListView6.ListItems(G).SubItems(1) Then
Set Item = ListView7.ListItems.Add(Text:=Ws.Cells(i, 8))
Item.SubItems(1) = Ws.Cells(i, 1)
Item.ListSubItems(1).ForeColor = RGB(127, 0, 255)
Item.SubItems(2) = Ws.Cells(i, 6)
Item.ListSubItems(2).ForeColor = cor
Item.SubItems(3) = Ws.Cells(i, 3)
Item.ListSubItems(3).ForeColor = &HFF&
Item.SubItems(4) = Ws.Cells(i, 4)
Item.ListSubItems(4).ForeColor = &HFF&
ele faz a comparação e adciona e pinta eu só queria que pintasse sem adcionar ou removesse