VBA - Delete Entire Row if Cell contains Text variable

[snb]

Sub M_snb()
  for each it in array("A","B","C","D")
     columns(1).replace it,"",1
  next
  columns(1).specialcells(4).entirerow.delete
  Range("F1,K1").EntireColumn.Delete   ' to delete columns F & K in 1 go
End Sub