Enter userform data into cell and then move down one row

[bturnbow]

Hello, I'm very new to VBA and I'm trying to work through a project but have gotten stuck.

I'm trying to have a comment entered into cell I13 and then any subsequent comments to be entered in the row below and so on.

So far this is what I have, but it stops working after the second comment has been entered. If I try to enter a 3rd comment nothing happens after hitting confirm. I'm guessing it has something to do with the merged cells.

Thank you

Private Sub cmdConfirm_Click()

'Sheets("Production Report").Unprotect Password:="abc"
Dim I As Long

Sheets("Production Report").Activate
ActiveSheet.Range("I13").Activate

Do While IsEmpty(ActiveCell.Offset(I, 0)) = False
    I = I + 1
Loop

ActiveCell.Offset(I, 0).Value = txtProduct.Value

'Sheets("Production Report").Protect password:="abc"
    Unload Me
End Sub

 

[jdellasala]

Does this help?