How to copy value from textbox to cell, and auto select cell below?

Originally Posted by protonLeah

Option Explicit
Sub commandbutton_click()
    Dim nextcell As Long
    
    nextcell = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If nextcell > 21 Then Exit Sub
    Cells(nextcell, "A").Value = TextBox.Value
End Sub

Hi Proton Leah,

Thanks for the help, it works... Thank You Sooooooo Much

Sorry for the late reply, i just tested the code.
Cheers