Delete TABLE rows if cell is empty

[BODYCOTE]

I have the following table that I want to delete each row if cell 'S' is empty so I can generate a pivot table without junk data

i have tried the following already and receive error:

This is what it looks like after I try to run the current macro (I'd like it to be table range specific so i dont have to enter false data from S1:S4)

 

[Peter_SSs]

I don't use a Mac, but this worked for me. Check you table name and column heading in the code.
Test with a copy of your workbook.

Sub DeleteTableRows()
  Dim r As Long
  
  With Range("Table1[stock to order]")
    For r = .Rows.Count To 1 Step -1
      If IsEmpty(.Cells(r).Value) Then .ListObject.ListRows(r).Delete
    Next r
  End With
End Sub