Need a macro to delete rows with specific word

In which column does the word reside?

I checked your file and found the word Inventories in column K. However, if you delete every row that contains that word in column K, you wont be left with any data.

Try this code

Option Explicit

Sub delete_rows()
Dim lrow As Long, i As Long

Application.ScreenUpdating = False

With Worksheets("Sheet")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 4 Step -1
        If .Range("J" & i).Value = "Inventories" Then .Rows(i).Delete
    Next i
End With

MsgBox "Deletion complete"

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button