vb6 - Run-Time error '91' Object varaible or With Block variable not set -

i have tried code below, got forum, have vb application, if extract first time remove blanks.

if try second time, give me run-time error '91', object variable or block variable not set.

dim r range dim rows long dim long                         set r = activesheet.range("a7:w77")       rows = r.rows.count     = rows 1 step (-1)     if worksheetfunction.counta(r.rows(i)) = 0 r.rows(i).delete next