Help With Looping Macro

Add lines in red:

Dim rCell As Range
Set rCell = Range("B7")
Dim sDesc As Range
Set sDesc = Range("C7:O7")
Dim sDiv As Range
Set sDiv = Range("P7:X7")
Dim dEnd As Range
Set dEnd = Range("Y7:AA7")



   If Not IsEmpty(rCell) Then
        For Each rCell In sDesc
            If IsEmpty(rCell) Then
                Msg = MsgBox("Please Fill In Blank Cell " & rCell.Address & " Before Saving")
                Cancel = True
                Exit For
            End If
        Next
        If WorksheetFunction.CountA(sDiv) = 0 Then
            Msg = MsgBox("Please Fill In a Division For Cells Between sDiv")
            Cancel = True
        End If
        For Each rCell In dEnd
            If IsEmpty(rCell) Then
                Msg = MsgBox("Please Fill In Blank Cell " & rCell.Address & " Before Saving")
                Cancel = True
                Exit For
            End If
        Next
      End If