Delete macro for a based a cell value

[seemz]

I want to write a code in excel for to delete the row if the that cell in column J is blank. This should be a loop code, so it goes line by line

 

[pboltonchina]

Try this on a copy of your data

Sub Delete_KG()
Application.ScreenUpdating = False
For Each WS In Sheets
        WS.Activate
      Dim LR As Long, i As Long
LR = Range("J" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("J" & i).Value = "" Then Rows(i).Delete
Next i
Next WS
Application.ScreenUpdating = True
End Sub