Delete cells in an Excel column when rows = 0

Question

I am trying to delete all cells =0 in a column in my spreadsheet and \"summon\" the values which don\'t to the top of the column.

I am currently using

Answer 1

Autofilter solution

Dim rng1 As Range
Set rng1 = Range([p7], Cells(Rows.Count, "p").End(xlUp))
ActiveSheet.AutoFilterMode = False
With rng1
.AutoFilter Field:=1, Criteria1:="0"
.Delete xlUp
End With