Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i&, lLastRow&
Dim K1$, K2$
'Шаг 1: Проверяем пустая ли ячейка C7
i = 4
With Worksheets("Лист 1")
    lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    K1 = .Range("A" & i & ":A" & lLastRow).Address
    K1 = Application.WorksheetFunction.CountIf(Range(K1), "<>" & "")
    lLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    K2 = .Range("B" & i & ":B" & lLastRow).Address
    K2 = Application.WorksheetFunction.CountIf(Range(K2), "<>" & "")
End With
'Шаг 2: Если пустая, отменить закрытие книги
If K1 <> K2 Then
    Cancel = True
    MsgBox "При заполненных ячейках в столбца А не может быть пустым значение в столбце В"
    Exit Sub
    'Шаг 3: Если не пустая, сохранить и закрыть
Else
    If Workbooks.Count = 1 Then
        ThisWorkbook.Save
        Application.Quit
    Else
        ThisWorkbook.Save
    End If
End If
End Sub