Remove Or Delete Rows Having Zero Or Negative Values In A Column

[snb]

I don't see any difference in what you 'have' and what you 'need'.

you can use

sub M_snb()
  columns(7).specialcells(2).offset(2).specialcells(4).entirerow.delete
  columns(7).specialcells(2).offset(2).specialcells(2,2).entirerow.delete
End Sub