Modify code to also remove cell borders

[rolly]

My vba code currently removes all the rows with a value of zero in the "B" column. It works well, but I also need it to remove the cell borders at the same time it removes the rows.
This is so when I print, it will only print the pages with values and not what it does now which is several more pages of blank cells with borders around them.
[vba]Sub Remove_rows_zeros_Bcolumn()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

Sheets("Testblocks-to-buy-list").Select
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView
.DisplayPageBreaks = False
'Set the first and last row to loop through
Firstrow = .UsedRange.Cells(4).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
For Lrow = Lastrow To Firstrow Step -1
'We check the values in the B column in this example
With .Cells(Lrow, "B")
If Not IsError(.Value) Then
If .Value = 0 Then .EntireRow.Delete
End If
End With
Next Lrow
End With
ActiveWindow.View = ViewMode
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
End Sub[/vba]
Note: I pulled this code from the web and modified it, but I can't remember where, I'd give credit to them if I knew where I got it.

Thank you for your help,
Rolly

[Bob Phillips]

If you delete the row, surely the borders go too?

[rolly]

I wish it worked that way, but I end up with about 170 blank rows with borders around the cells (about 3 pages of wasted paper if printed).

I have another vba sub that sets the print settings for the sheet, but now I still have to manually scroll down and remove the cell borders. I could record a macro, but since the number or rows can change, then a recorded macro would no longer remove the borders on the correct row.

It there a way to remove cell borders on the entire sheet, then add in cell borders ending on the last row of data?

Rolly

[Bob Phillips]

I would like to see a workbook that shows that.

[rolly]

I would like to see a workbook that shows that.

Are you asking for someone to post a way to remove cell borders on the entire sheet, then add in cell borders ending on the last row of data or are you asking me to post my workbook?
or both?

Rolly