Delete rows based on list

Hi,

Assumptions.
Data is on sheet1 A1:D4 with ABCD as column labels on row 1
The delete list is on sheet2 in A1:C3 with labels on row 1.

First create two range names
Data
=OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),4)
DeleteCriteria
=OFFSET(Sheet2!$A$1,0,0,COUNTA(Sheet2!$A:$A),2)

Then add the following macro

Sub DeleteRows()
    Range("Data").AdvancedFilter action:=xlFilterInPlace, criteriarange:=Range("deletecriteria")
    Range("Data").Offset(1, 0).Resize(Range("Data").Rows.Count - 1, 4).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Range("data").AutoFilter
End Sub

HTH