Guru do Excel e Power BI

Caros,
poderiam me auxiliar na macro para eu determinar que mais de uma célula seja preenchida obrigatoriamente.
A macro que estou utilizando é:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'impede salvar se houver celula vazia 'M31'
If Application.CountBlank(Range("M31")) > 0 Then
MsgBox "O campo OBRA não está preenchido." & vbLf & _
"Documento não será salvo", vbExclamation
Cancel = True
End If
End Sub

Preciso acrescentar mais duas células para serem preenchidas: K10 e L10. Porém, para elas deverá aparecer:
MsgBox " O campo DATA não está preenchido"
Além de continuar a informação caso a célula M31 não seja preenchida.

Grato

Luciano

Caros,
consegui resolver a questão.
Assunto encerrado!

Grato.