Macro to Compare to Cells and Delete Row

I am trying to write some code that will compare two cells on a row and if they match then it will delete the row.

Column A-has the number 1, 2, 3, 4, or 5 entered
Column B-has either a date or is blank

I need the macro to look at Column A and Column B and for example if the cell A2 has a 3, 4, or 5 and B2 is blank the macro will delete that row.

The spreadsheet will vary on how many rows it contains. It can contain up to 5,000 rows and the macro would need to go through all the rows.

Any help would be greatly appreciated. Thanks

Well I figured out why the previous to code examples were not working I have included a correction as to what I am needing.

I am trying to write some code that will compare two cells on a row and if they match then it will delete the row.

Column A-has the number 1, 2, 3, 4, or 5 entered
Column B-has either a date or is blank

I need the macro to look at Column A and Column B and for example if the cell A2 has a 3, 4, or 5 and B2 has a date the macro will delete that row.
The spreadsheet will vary on how many rows it contains. It can contain up to 5,000 rows and the macro would need to go through all the rows.
Any help would be greatly appreciated. Thanks