Pętla sprawdzania niepustej komórki w excelu

Witajcie,

Potrzebuje pomocy w prostej pętli w VBA excel:

 Dim rng As Range
 rng = Sheets("wymiany").Range("A2:A100")
  Do While rng.Value = ""
    rng.Value = wartosc1
  Loop

problem polega na tym że chce aby w komórkach od A2 do A100 wyswietlala mi sie wartość która zostanie podana przez użytkownika w InputBox. Nastepnie wartosc ta zapisuje sie w A2 - jesli jest pusta. Jesli A2 jest zajete to przechodzi mi do A3 i tam jest wpisywana ta wartość, jesli pełna to do A4 itd...
Niestety czegos brakuje w tej pętli.
Prosba o pomoc.
Z góry dziękuję

Sub pisz()

Dim koniec As Boolean
Dim r As Integer
koniec = False
r = 2

Do
  If Cells(r, 1) = "" Then
    Cells(r, 1) = "wartosc1"
    koniec = True
  Else
    r = r + 1
  End If
  Loop Until koniec
End Sub