Thank you.
I tried that with the below code but still not working, I more than likely have the wrong placements of the IFS and ELSE IFS.
Can you see what is wrong with the below by any chance?


Sub buttonClickNP()

If IsEmpty(Range("E10")) Then
MsgBox "Enter which project the part request is for"
GoTo ende
Else

If IsEmpty(Range("I8")) Then
MsgBox "Enter the Part Type"
GoTo ende
Else

If IsEmpty(Range("I11")) Then
MsgBox "Enter the Product Type"
GoTo ende
Else

If IsEmpty(Range("I14")) Then
MsgBox "Enter a value for cell I14"
GoTo ende

Else

ws_output1 = "New_Parts_Request"

next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row

Sheets(ws_output).Cells(next_row, 1).Value = Range("Part_Number").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Project_Request").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Part_Standardisation?").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Detail").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Part_Type").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Product_Type").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Property_1").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("Property_2").Value
Sheets(ws_output).Cells(next_row, 9).Value = Range("Property_3").Value
Sheets(ws_output).Cells(next_row, 10).Value = Range("Property_4").Value
Sheets(ws_output).Cells(next_row, 11).Value = Range("FreeText").Value

Else

MsgBox "Your part request has been submitted. Please validate your request in the New_Parts_Request tab at the bottom of your screen"

End Sub

End If
End If
End If
End If

ende:
End Sub