MACRO to check validation dropdowns left blank

This is the code

Sub IdentifyBlanksinDataValidation()
    On Error GoTo NoBlank
    Range("d6:e6").SpecialCells(xlCellTypeSameValidation).SpecialCells(xlCellTypeBlanks).Select
    MsgBox "CA NAME cannot be blank", vbCritical
    Range("d17").SpecialCells(xlCellTypeSameValidation).SpecialCells(xlCellTypeBlanks).Select
    MsgBox "Process Type cannot be blank", vbCritical
    Range("d18").SpecialCells(xlCellTypeSameValidation).SpecialCells(xlCellTypeBlanks).Select
    MsgBox "Sub Type cannot be blank", vbCritical
    Range("d20").SpecialCells(xlCellTypeSameValidation).SpecialCells(xlCellTypeBlanks).Select
    MsgBox "Product/Specific Type cannot be blank", vbCritical
    Exit Sub
NoBlank:
'   Range("S2:AF2").Select
    Selection.Copy
    Sheets("Raw_Data").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("5:5").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown
    Sheets("Tracker").Select
    Range("D10:D11").Select
    Selection.ClearContents
    Selection.ClearContents
    Range("D13:D15").Select
    Selection.ClearContents
    Range("D17:D20").Select
    Selection.ClearContents
    Range("B23:F32").Select
    Selection.ClearContents
End Sub

RoyUK - Thanks for the link for wrapping codes