Deleting entire row if any specific column is blank

Formula changed

Sub test()
    Dim rng As Range, e
    With Sheets("data").Range("a6").CurrentRegion
        Set rng = .Offset(, .Columns.Count + 2).Range("a1:a2")
        For Each e In Array("=or(ISNUMBER(SEARCH(""cancel"",B7)),AND(J7<>"""",K7<>""""))", _
                            "=and(J7="""",K7="""",iserror(search(""cancel"",b7)))")
            rng(2).Formula = e
            .AdvancedFilter 1, rng
            .Copy Sheets.Add.Range("a3")
            If .Parent.FilterMode Then .Parent.ShowAllData
        Next
        rng.Clear
    End With
End Sub

Originally Posted by jindon

So, you have not even tried my code.

Oh! I used the first code and that worked perfectly.Hopefully,thought the same would be of yours.And requested a slight change in code which I have further posted in Post # 14 which you have already solved in Post #13 except the column width adjustment which is very simple to me.

Thanx again to you as you were my favourite tutor in solving my complex large data case since inception.
And thanx to "Karedog" &" alansidman" too who consistently helped in resolving the issue.

Hence my issue is solved here.A similar format/Structure which is my next issue will be posting in few hours as I am facing in Normalisation of complex large data soon.And hoping the same help. there too with vba.