Hi guys,

I am using the following code to delete rows if the values in column Z = 0

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
With ActiveSheet
   .Select
   ViewMode = ActiveWindow.View
   ActiveWindow.View = xlNormalView
   .DisplayPageBreaks = False
   Firstrow = 5
   Lastrow = 466
   For Lrow = Lastrow To Firstrow Step -1
       With .Cells(Lrow, "Z")
           If Not IsError(.Value) Then
               If .Value = 0 Then .EntireRow.Delete
           End If
       End With
   Next Lrow
End With

I now have a table of values from columns B to W

I was wondering if it is possible to modify the above code or even get help
with a new code that will do the following:

Is there a way to create a row at the end of my table which has the sums of
each column from B to W

Find the last row of values (which has the totals in it)

If any of the values in this row equal zero, then to delete that column

The number of rows will always vary so cannot be set

As always, your help is greatly appreciated