Let's say your data looks like this
Try this
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim lrow As Long, i As Long
Set ws = ThisWorkbook.Sheets("Sheet3")
With ws
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 4 To lrow
If Application.WorksheetFunction.CountA(.Range("C" & i & ":E" & i)) <> 3 Then
MsgBox "Please Enter the number of units of " & .Range("B" & i).Value & " Sold"
Exit Sub
End If
Next i
End With
MsgBox "Data Validated"
End Sub
This is what you get when you run the code
and this when everything is filled