Estou fazendo um projeto para minha pizzaria e estou com 2 problemas um deles é esse código...
Quero fazer uma busca na planilha ("clientes") e achada a busca vai até a coluna ("G") na mesma linha da busca e alterar o valor para o mesmo valor da planilha ("vendas") na celula ("AG6").
Se alguém puder me ajudar ficarei muito agradecido!
Desde já obrigado a todos.

Public Sub muda_pontos()
Dim Inter As Range
Dim number As Variant
Sheets("VENDA").Select
Range("AG6").Select
number = Selection.Value
With Sheets("CLIENTES").Range("A1:A5000")
    Set c = .Find(What:=TextBox1, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
         
            c.Value = number
            'Set c = .FindNext(Cells(c, "G")).Value
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub