No permitir imprimir si no se llena celdas requeridas...

Tengo este código pero necesito que la celda Q11 y la celda O27

Sub incrementarnumero()
Application.ScreenUpdating = False
 Range("I16").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("F2:Q29").Select
    ActiveSheet.PageSetup.PrintArea = "$F$2:$Q$29"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
        Dim respuesta As Variant
        respuesta = MsgBox("la impresion fue correcta?", vbYesNo + vbExclamation, "ADVERTENCIA")
        If respuesta = vbYes Then
        estado = 1
         MsgBox "A continuación se procede a guardar copia y se prepara la hoja para una NUEVA FACTURA.", , "ATENCION"
    Call guardaCopia
          ActiveSheet.Unprotect password:="28021990"
        Rows("11:11").Select
    Range("B11").Activate
    Selection.EntireRow.Hidden = True
     Sheets("NUEVO SERVICIO A DOMICILIO").Protect password:="28021990"
            End If
    If respuesta = vbNo Then
    ActiveSheet.Unprotect password:="28021990"
Range("Q11").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Sheets("NUEVO SERVICIO A DOMICILIO").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
        ActiveSheet.Protect password:="28021990"
        End If
End Sub

pero necesito que la celda Q11 y la celda O27  si no tienen dato NUMERICO estas celdas no me permita ejecutar esta macro hasta que se inserten los datos..

gracias... Saludos