Sub Copy_condition()
Dim s As Integer
s = Sheets("Spiral").Range("B2").End(xlDown).Row
Sheets("New").Select
Range("A2", Range("P" & s)).Select
Selection.ClearContents
Sheets("Spiral").Select
Dim a As Range
For Each a In Range("D2", [D65555].End(xlUp))
If a Like "#N/B" Then
Rows(a).Copy
Sheets("New").Rows(a).Paste
End If
Next
Sheets("New").Select
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub