De un user form a una hoja de excel

Del siguiente, tengo un user form con con los cuadros de texto, quiero que al llenar los cuadros de texto, y dae click en agregar, se guarden en la hoja de calculo en los rangos, pero no funciona, esta completamente mal, ¿cómo le hago?
Private Sub cmdpuestos_Click()
Range("A2").Select
Range("A2").txtpuesto.Value
Range("b2").txtnombre.Value
Range("c2").txtjefe.Value
Range("d2").txtarea.Value
Range("e2").txtactividades.Value
ActiveCell.EntireRow.Insert
txtpuesto.Text = Empty
txtnombre.Text = Empty
txtjefe.Text = Empty
txtarea.Text = Empty
txtactividades.Text = Empty
End Sub