humberto,

Adicione em um módulo, o que se segue :

Sub atualizaPreco(ByVal CodProduto As String, ByVal precoProd As Double)
    Dim planBase As Worksheet
    Dim pesqProduto
    
    Set planBase = ThisWorkbook.Sheets(1)
    
    With planBase
        With .Range("A:A")
            Set pesqProduto = .Find(CodProduto, LookAt:=xlWhole)
                If Not pesqProduto Is Nothing Then
                    .Cells(pesqProduto.Row, "E") = precoProd
                    MsgBox "Preço do produto " & CodProduto & " atualizado com sucesso!", vbInformation, _
                    "Atualização de preço"
                Else
                    MsgBox "Produto : " & UCase(CodProduto) & " não localizado!", vbExclamation, "Erro"
                    Exit Sub
                End If
            Set pesqProduto = Nothing
        End With
    End With
End Sub

E no evento do botão contido no UserForm :

Private Sub CommandButton1_Click()
    If Not IsEmpty(TextBox1) Then
        If Not IsEmpty(TextBox2) And IsNumeric(TextBox2) Then
            Call atualizaPreco(TextBox1, CDbl(TextBox2))
        Else
            MsgBox "Favor informe o preço do produto!", vbExclamation, "PREÇO"
        End If
    Else
        MsgBox "Favor informe o código do produto!", vbExclamation, "CÓDIGO"
    End If
End Sub

Favor, teste e retorne.

Bom dia.

Ajustei o código conforme a minha necessidade e deu certo.

Muito Obrigado!!!

Abs.