Şu şekilde dener misiniz?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim excelce_eksik As Range
For Each excelce_eksik In Range("B2:B" & Range("B65530").End(3).Row)
If excelce_eksik <> Empty Then
If excelce_eksik.Offset(0, 2) <> "KABUL-RED" And excelce_eksik.Offset(0, 2) <> "BEKLE" Then
If Not IsDate(excelce_eksik.Offset(0, 3)) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
End If
End If
Next excelce_eksik
End Sub