Sub DontRunUtil()
    With Worksheets("TSA Request")    'Change CodeName to suit
        If IsEmpty(.Range("F4")) Then
            MsgBox "Missing CID", vbCritical
            Application.Goto .Range("F4")
        ElseIf IsEmpty(.Range("F5")) Then
            MsgBox "Missing Order Number", vbCritical
            Application.Goto .Range("F5")
        ElseIf IsEmpty(.Range("F6")) Then
            MsgBox "Missing Container Number", vbCritical
            Application.Goto .Range("F6")
        ElseIf IsEmpty(.Range("F7")) Then
            MsgBox "Missing Type of Service", vbCritical
            Application.Goto .Range("F7")
        ElseIf IsEmpty(.Range("F8")) Then
            MsgBox "Missing Date Needed", vbCritical
            Application.Goto .Range("F8")
        ElseIf IsEmpty(.Range("F9")) Then
            MsgBox "Missing Address", vbCritical
            Application.Goto .Range("F9")
        ElseIf IsEmpty(.Range("F10")) Then
            MsgBox "Missing Server Number", vbCritical
            Application.Goto .Range("F10")
        ElseIf IsEmpty(.Range("F11")) Then
            MsgBox "Missing Supervisor", vbCritical
            Application.Goto .Range("F11")
        ElseIf IsEmpty(.Range("F12")) Then
            MsgBox "Missing Error", vbCritical
            Application.Goto .Range("F12")
        ElseIf MsgBox("Thank you for reaching out to TSA - Someone will be with you shortly, " & Application.UserName & "." & _
                      vbNewLine & vbNewLine & "Do you agree to keep the customer on the phone while we complete the Maintenance Process?", _
                      vbYesNo, "Selection") = vbYes Then
            Call Copy_Paste.Copy_Paste
        End If
    End With
End Sub