Temat: Proste makro VBA

Witam,
dopiero zaczynam swoją przygodę z VBA i stanąłem przed błachym problemem.

Chcę by moje makro realizowało następującą czynność:
Ustawiam listami rozwijanymi wartość docelową komórki 'q4'
i chcę by makro po akceptacji przyciskiem wypisywało mi ustaloną wartość w komórce q6 (na początku).
Następnie gdy zmieniam, operując dalej listami rozwijanymi komórkę 'q4' zapisywał mi rózwnież po akceptacji przyciskiem, ale już w kolejnej komórce (poniżej).

Próbowałem zabawę z pętlą Do While, pojawia się error nie wiem co robię źle.
Proszę o pomoc.
I z góry dziękuję.

Poniżej mój kod:

Private Sub CommandButton1_Click()
Dim NrWiersza As Integer
NrWiersza = 0
Dlugosc = Len(Range("q4").Value)
Roznica = Dlugosc - 31
If Dlugosc > 31 Then
BłędnaWartość
Exit Sub
Else
Do
If Range("q6").Offset(NrWiersza, 0).Value <> "" Then
Exit Do
End If
Loop
Range("q6").Offset(NrWiersza, 0).Value = Range("q4").Value
Range("r6").Offset(NrWiersza, 0).Value = Len(Range("q4").Value)
MsgBox "NrWiersza " & NrWiersza
NrWiersza = NrWiersza + 1

Exit Sub
End If
End Sub
'------------------------------------------

Sub BłędnaWartość()
Dlugosc = Len(Range("q4").Value)
Roznica = Dlugosc - 31
MsgBox "Przekroczono dopuszczalną dł. nazwy o " & Roznica & " znaków.Wprowadź jeszcze raz nazwę"
Exit Sub
End Sub

Temat: Proste makro VBA

Poradziłem sobie - zamykam temat