Ola Pessoal,

Estou tentando criar uma rotina para ALTERAR valores de vários itens de uma única vez. Consegui chegar na rotina abaixo, porém ela esta bem lenta.

Como eu ainda sou um desenvolvedor "meia boca" gostaria que alguem me ajudasse a otimizar a rotina.

Grato desde já

Sub ALTERA()

Dim x As Variant
Dim i As Variant
Dim LINHA, LinhaFinal As Variant

Dim p As Double
Dim div As Double
Dim valor As Double
Dim result As Variant

p = TextBox1
div = 100
valor = 0

    For x = 1 To LISTA.ListItems.Count
    
            
            LinhaFinal = Sheets("PROD").Range("A65000").End(xlUp).Row
          
            For LINHA = 2 To 5000
              valor = Sheets("PROD").Range("G" & LINHA)
            If Sheets("PROD").Range("A" & LINHA).Value = (LISTA.ListItems(x)) And Sheets("PROD").Range("J" & LINHA).Value = ComboBox1.TEXT Then
             Sheets("PROD").Range("G" & LINHA) = Sheets("PROD").Range("G" & LINHA) + valor * p / div
             
            LINHA = LINHA + 1
            End If
            Next LINHA
     
    Next
    
End Sub