Transfer userform data to excel sheet

hi experts,

a little help with my code:

I am aiming to transfer the data on my textboxes from userform to excel sheet but I am having an error.

[CODE][/Private Sub CommandButton2_Click()
lr = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Sheet1").Range("A" & lr) = TextBox1
Sheets("Sheet1").Range("H" & lr) = TextBox2
Sheets("Sheet1").Range("K" & lr) = TextBox4
Sheets("Sheet1").Range("E" & lr) = TextBox5
Sheets("Sheet1").Range("F" & lr) = TextBox6
TextBox1 = ""
TextBox2 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End SubCODE]

thanks!