Sub Macro1()
Dim derlig As Long
Application.ScreenUpdating = False
With Sheets("Sheet1")
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("W6:W" & derlig).FormulaR1C1 = "=IF(COUNTA(RC[-19]:RC[-1])=0,NA(),0)"
On Error Resume Next
.Columns("W:W").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
On Error GoTo 0
.Columns("W:W").ClearContents
End With
Application.ScreenUpdating = True
End Sub