For d = 2 To i
If IsError(Cells(d, 9)) Then
Row = Cells(d, 9).Row
ActiveSheet.Rows(Row).Delete ' Shift:=xlUp
d = d - 1
End If
Next d
For d = 2 To i
If Cells(d, 9).Value = "N" Then
Row = Cells(d, 9).Row
ActiveSheet.Rows(Row).Delete ' Shift:=xlUp
d = d - 1
End If
Next d