Skriv til næste tomme linje

Jeg har en form som jeg prøver at få til at virke, men den skriver ikke til næste tomme linje men overskriver det første.
Private Sub CommandButton3_Click()

Worksheets("3").Activate


c = 1
Do Until Worksheets("3").Cells(c, 1) = ""
  c = c + 2
  Loop
Cells(c + 1, 2) = UserForm1!TextBox6.Value


UserForm2!TextBox6.Value = ""

End sub
Jeg har "rettet" fra denne her
Private Sub CommandButton3_Click()

Worksheets("3").Activate


c = 1
Do Until Worksheets("3").Cells(c, 1) = ""
  c = c + 2
  Loop
Cells(c, 1) = Format(Now, "DD-MM-YYYY")
Cells(c + 1, 2) = UserForm1!TextBox6.Value


UserForm2!TextBox6.Value = ""

End sub
------------------
Jeg skal ende op med at have værdien af box6 i kolonne b værdien af box7 i kolone c osv.
Og den skal så skrive i næste ledige linje.
Jeg vil også kunne definere det område den skal skrive i f.eks row 15 til 30