The code below will only run when all fields contain data. Delete code lines 4-7 if you don't want this.
Also, column D on the second sheet will get stamped with todays date. Delete code line 14 if you don't want this.
Dim lRow As Integer
If Range("B5") = vbNullString Or Range("B7") = vbNullString Or Range("B9") = vbNullString Then
MsgBox "Please enter all fields before submitting", vbCritical, "Incomplete data"
With Sheets("Request Report")
lRow = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & lRow).PasteSpecial Transpose:=True
.Range("D" & lRow).Value = Date
Application.CutCopyMode = False
Say "Thank you"
Glad we were able to help! Love us? Write us a review! Rate CCM
2482 users have said thank you to us this month