Condición cumplimentar casilla antes de cerrar libro.

Mi consulta es si se puede hacer una macro que identifique el valor de la columna A y en base al valor de esta, sea obligatorio cumplimentar o no la correspondiente en la columna B, y no permita guardar el libro o no permita guardar los cambios mostrando un mensaje al usuario, el inicio de esto es por lo siguiente, tengo tres compañeros de trabajo que tienen que enviar al almacén sus pedidos de manera diaria, en un Excel muy sencillo que veis aquí, si el producto es A ó B, las unidades deben ser especificadas puesto que es un producto perecedero, pero los productos C;D;E;F;G;H no es necesario puesto que con que lo referencien en el Excel, ya saben en el almacén cuantas unidades hacen falta puesto que vienen en paquetes sellados. El problema es que muy a menudo se olvidan de poner la cantidad de unidades en la casilla correspondiente, por lo tanto antes de cerrarse el libro necesito que se ejecute una macro que compruebe que todas las casillas contiguas a ARTICULO, si es A ó B tienen un dato.

El códigoq ue he podido sacar hasta ahora es este, pero no funciona como espero y llevo ya muchos días enfrascado en buscar la solución:

Sub Cerrar_libro()
    Dim Contador As Integer
    Contador = 1
    Range("A1").Select
    Do While ActiveCell <> ""
        If ActiveCell.Offset(0, 1) = "" Then
        MsgBox "hay " & Contador & " registros para completar antes de cerrar el archivo"
            Contador = Contador + 1
         End If
         ActiveCell.Offset(1, 0).Activate
    Loop
    MsgBox "estan todos los campo llenos el libro se puede cerrar"

      ActiveWorkbook.Close savechanges:=True
End Sub

Como veis es una plantilla muy sencilla pero necesito que tenga esa funcionalidad.