Capture data from OptionBox into datasheet

I'm a bit confused, what type of control are you using? OptionButton? ComboBox? ListBox?

It looks like you have most of what you want. Without testing the code I see a couple of things you might want to change. You need to qualify which cells you want to place the values in, and what you'd like to change about the cells. Like:

Cells(nr, 3) = Me.boxSurname.Text
ssheet.Cells(nr, 4).value = Me.boxForename.Text
ssheet.Cells(nr, 6).value = Me.boxPhone.Value
ssheet.Cells(nr, 9).value = Me.boxDob.Value
ssheet.Cells(nr, 16).value = UCase(Me.boxoptout.Text)
MsgBox "Employee Added"

e/ On your second question, if you use unload.me to close the userform, I believe it will reset all controls in the userform.