Miltonleandro

Alguém pode ajudar?

Segue Plan em anexo...

Obrigado!!!

Bom dia!
Gostaria da ajuda de vocês pois não estou conseguindo...
Quero EDITAR a coluna "Qtde" quando for localizado na Plan as TEXTBOX ID e CÓDIGO. Se localizar só o ID não edita a Qtde. 

TxtQuantOP - TxtQtde = neste campo digito a qtde a subtrair
ID          Código        Produto                                                 Qtde   Dt Emissão
013906 042083001 SUBCONJ CHICOTE DA SETA             100     17/06/2016
013907 042083006 SUBCONJ CHICOTE DO LIMPADOR    555    17/06/2016

Tenho o código para Localizar o ID, mas preciso que seja o ID + Código. Alguém pode me ajudar por favor?

Worksheets("OP").Select
Range("A2").Select
While ActiveCell <> ""
If TxtID.Text = ActiveCell Then
soma = (TxtQuantOP - TxtQtde) 
ActiveCell.Offset(0, 1).Value = soma
MsgBox "Alterado com sucesso!", vbInformation, "OP" 
End If
ActiveCell.Offset(1, 0).Activate
Wend

Desde já obrigado!