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

Yes, there is:

Sub DoMAcro()
    Dim lastRow As Integer

    lastRow = Cells(1000, 16).End(xlUp).Row

    Range(Cells(7, 16), Cells(lastRow, 16)).Replace What:="0", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub