Hi there,
Someone assist me in this code, where the entries of txtboxes go into the next availible open row:
Private Sub CmdAdd_Click()
LR = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & LR) = txtPrin
Range("A" & LR + 1) = txtSpouse
Range("A" & LR + 2) = txtCh1
Range("A" & LR + 3) =...