Sheets("Home").Range(Cells(4, 2), Cells(Cells(Rows.Count, "b").End(xlUp).Row, 17)).Delete
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)