Delete if value is 0

[Bob Phillips]

Try this

[vba]

Dim idx As Long
Dim lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

With Worksheets("Face")

lastrow = .Cells(.Rows.Count, "J").End(xlUp).Row
For i = lastrow To 2 Step -1

If .Cells(i, "J").Value <> "" And .Cells(i, "AL").Value = 0 Then

idx = 0
On Error Resume Next
idx = Application.Match(.Cells(i, "J").Value, Worksheets("Metal").Columns("F"), 0)
On Error GoTo 0
If idx > 0 Then Worksheets("Metal").Rows(idx).Delete
End If
Next i
End With

Application.ScreenUpdating = True[/vba]