Private Sub CommandButton1_Click()
'Text Box Client
dlig = Range("A61").End(xlUp).Row
Range("A" & dlig + 1).Value = TextBox13.Value
'Text Box Quote
Range("c" & dlig + 1).Value = TextBox12.Value
'Text Box Finance
Range("D" & dlig + 1).Value = TextBox2.Value
Unload Me
End Sub