[VB6] Excel: Problema con le condizioni su spostamento celle

[leomac]

Finalmente ho risolto un problemone che mi assillava da tempo.

Range("B1").Copy
Range("A1").Select
Do While ActiveCell >< 0
ActiveCell.Offset(1,0).Activate
Loop
ActivateCell.Paste

in questo modo incollo il testo solo nella prossima cella vuota.