Active sheet do not print if cell n8 to n15 are blank

I have a workbook with 6 sheets in it but I want the active sheet Cell n8 to n15 must be filled with any number and can not leave blank. If those cells are are blank then sheet will show message to fill those cells and stop from printing. user should be ok to put zero in it.

I also have this for my workbook for each sheet, is there way I can adjust these two togather, I mean to say before print f28 = i41 and cell n8 to n14 can not be blank. and message only pop up if one of the condition not met.

Thanks for your help

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("Sheet1").Range("f28") <> Worksheets("Sheet1").Range("i41") Then
Cancel = True
MsgBox "Please check the total amount in F28 (Highlight in Green) match with total I41!"
End If
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("sheet2").Range("f28") <> Worksheets("sheet2").Range("i41") Then
Cancel = True
MsgBox "Please check the total amount in F28 (Highlight in Green) match with total I41!"
End If
End Sub

Thanks a lot it does what I want.