Sazimanje tabele

[Dejan]

Kako najlakse izbrisati prazne redove iz tabele (sazimanje tabele) sa VBA u Excel-u (npr)
If Sheets("s1").Cells(a, 2).Value = 0 Then
a = a + 1
ElseIf Sheets("s1").Cells(a, 2).Value > 0 Then
b = Sheets("s1").Cells(a, 2).Value
Sheets("s1").Cells(a, 3).Value = b

 

[Dejan]

Pronasao sam resenje

Resio sam problem uz pomoc do..While petlje i dva brojaca.
Ako nekog zanima ne ctp; k se javi. Dejan