[vba]

Dim idx As Long
Dim lastrow As Long, lastrow2 As Long
Dim i As Long, j As Long

Application.ScreenUpdating = False

With Worksheets("Metal")

lastrow2 = .Cells(.Rows.Count, "F").End(xlUp).Row
End With

With Worksheets("Face")

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

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").Cells(i, "F").MergeArea.EntireRow.Delete
End If
End If
Next i
End With

Application.ScreenUpdating = True
[/vba]