2,

Dim Arr, i As Long, strTörlendő As String
Arr = Split("kuka1,kuka2,kuka3,kuka4", ",")
For i=LBound(Arr) to UBound(Arr)
strTörlendő = Arr(i)
Worksheets("Munka1").Range("A1").AutoFilter _
field:=3, _
Criteria1:=strTörlendő
Rows("2:65536").Delete
Selection.AutoFilter
Next