mude
rang = Range("A1:A" & Cells(Rows.Count, 1)).End(xlUp).Row
para
rang = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value2
acho que na hora d escrever eu me perdi com o ),

mas tbm tem a ver com os nomes dos txtbox

Private Sub CommandButton1_Click()
    Dim L2 As Long, L As Long
    rang = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value2
    For L = 1 To UBound(rang, 1)
        If rang(L, 1) = TextBox1.Value Then
            L2 = L
        End If
    Next
    Cells(L2, 2).Value2 = Cells(L2, 2).Value2 + TextBox2.Value
    Cells(L2, 3).Value2 = Cells(L2, 3).Value2 + TextBox3.Value
End Sub

lembrando que os valores da celula e da txt tem que ser exatamente iguais

olha , mas como falei, é apenas uma maneira muito simples de se fazer

nesse sai do loop depois que acha o valor

Private Sub CommandButton1_Click()
    Dim L As Long
    rang = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value2
    For L = 1 To UBound(rang, 1)
        If rang(L, 1) = TextBox1.Value Then
            Cells(L, 2).Value2 = Cells(L, 2).Value2 + TextBox2.Value
            Cells(L, 3).Value2 = Cells(L, 3).Value2 + TextBox3.Value
            Exit For
        End If
    Next
End Sub

Sou novo aqui no fórum e as vezes fico perdido nas respostas.
Vou anexar um exemplo. Parece q não está indo por um detalhe q não consigo identificar.

Poderia dar uma olhada ?

Funcionou exatamente como eu queria. Obrigado!!
O que preciso vou adaptando aqui a isso...