Delete List Contain Matching from Second List

[Rajan_Verma]

Yes Remove means Remove . not replace them with blanks

[snb]

Sub snb()
    sn = Application.Transpose(Filter([transpose(if(countif(B$1:B$3,A1:A12)=0,A1:A12))], False, False))
    cells(1,3).resize(ubound(sn)+1)=sn
End Sub

[Rajan_Verma]

Yes.. it nice