Código para restar solo números que estén en existencia

Hola tengo un rango de A2:A100 ala cual lleva por titulo ENTRADAS, tengo otro rango

B2:B100 llamado EXISTENCIA y por ultimo otro rango C2:C100 llamado SALIDAS

Entonces lo que necesito (basándonos solo en la celda A2, pero necesito de todo el rango)

Caso 1

Que si en A2 tengo de entrada 100 "nombre de producto" y en C2 pongo de salida 90 "nombre de producto" en B2 me debe quedar de existencia 10 "nombre de producto".

Caso 2

En caso de que fuese de la sig. Manera:

Que si en A2 tengo de entrada 100 "nombre de producto" y en C2 pongo de salida 110 "nombre de producto" me debe salir un msgbox de error indicando que no hay productos para dar de salida..

En el caso 1 que se realice después de ejecutar este código:

Sub macro3()    On Error Resume Next    hoja = InputBox("Escribe el nombre de la hoja")    If hoja = "" Then Exit Sub    existe = False    For Each h In Sheets        If UCase(h.Name) = UCase(hoja) Then            existe = True            Exit For        End If    Next    If existe Then        Application.ScreenUpdating = False        Range("a1:d1000" & Range("a65536:d65536").End(xlUp).Row).Select        Selection.Copy        Sheets(hoja).Activate        Cells(1, Range("iv4").End(xlToLeft).Column + 1).Select        ActiveSheet.Paste = xlPasteFormulas        ActiveSheet.Paste        ActiveSheet.Paste = xlPasteFormulas        Application.CutCopyMode = False        Application.ScreenUpdating = True    Else        MsgBox "No existe la hoja: " & Range("A1"), vbInformation    End IfEnd Sub

y en el caso 2 simplemente salga el error si no hay producto sufiente en rango ENTRADAS