excel - Looped call on rows in VBA -

i'm trying run call on top row, delete row , move cells below , run on new top row again. repeat excercise till there no more rows left. , yes know slow way of doing it, call takes 10 secs each row, it's nice way of keeping track of progression (i.e how many rows left).

this i've got far, not understanding request delete range a2:c2 , move cells below if there value in range a3.

any appreciated!

sub loop_through_rows()  dim rngquantitycells range  set rngquantitycells = range("a2", range("a2").end(xldown))  = 1 rngquantitycells call runsplit  if range("a3").value > 0 range("a2:c2”).delete shift:=xlup  end if next end sub 

try this:

sub loop_through_rows() dim rngquantitycells range set rngquantitycells = range("a2", range("a2").end(xldown))  = 1 rngquantitycells     call runsplit     if range("a3").value > 0         range("a2:c2").delete shift:=xlup     end if next end sub 

note needed then on same line. also, have 2 "styles"(?) of quotes in original post on range("a2:c2").