Or

Code:
.Cells(.Rows.Count).End(xlup)(2).Resize(50).EntireRow.Delete