Hey..... stop with that old man stuff, I'm an Old Age Pensioner too ya know.
Except for the 33 and HorizontalAlignment this is what I had prior to seeing your last post.
xlBlanks is an built in constant.
In the vba environment, place your cursor within SpecialCells and hit F1 to find out things like this.
You could remove the commas to make those cells blank, then delete.
Code:
With Range("A33", Cells(Rows.Count, "A").End(xlUp))
.Replace What:=",", Replacement:=""
.SpecialCells(xlBlanks).Delete Shift:=xlUp
.HorizontalAlignment = xlRight
End With