code to record an amount into a table

I would like a very simple payroll, I only have 3 people working, so let say I would like to enter the name of employee and enter the amount of money pay for that week (an automatic date) enter into a table , but instead of open a sheet if I can just use a form and use a button to click on it. Please give me a sample or idea on how I can do this. Thank you.

This tutorial should help get you started.

Build a UserForm for Excel

Ok, I have modified the userform to kind of what I want, I want to change each person to have a separate sheet, for example, carlos to have its own sheet, jesus on his own sheet, Charlie on his own sheet. How can I do that? or if someone can help me do that please, please look at attachmemnt.

This works with a sheet for each cboDepartment.Value (it'll install a new sheet)

Private Sub cmdOK_Click()
    Dim RowCount As Long
    Dim ctl As Control
    Dim ws As Worksheet, N As String, Z
    N = Me.cboDepartment.Value: Z = Split(N): N = Z(0)
    For Each ws In Worksheets
    If ws.Name = N Then GoTo Setws
    Next
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = N
    Sheets("Sheet1").Rows(1).Copy Sheets(N).Range("A1")
    
Setws:    Set ws = Sheets(N)
' Write data to worksheet
    RowCount = ws.Range("A1").CurrentRegion.Rows.Count
    With ws.Range("A1")
        .Offset(RowCount, 0).Value = Me.cboDepartment.Value
        .Offset(RowCount, 1).Value = Me.txtAmount.Value
        .Offset(RowCount, 2).Value = Format(Now, "dd/mm/yyyy")

    End With
' Clear the form
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
            ctl.Value = ""
        ElseIf TypeName(ctl) = "CheckBox" Then
            ctl.Value = False
        End If
    Next ctl
End Sub

You're welcome and thanks for the rep!

Maybe:

Private Sub cmdOK_Click()
    Dim RowCount As Long
    Dim ctl As Control
    Dim ws As Worksheet, N As String, Z, r As Long, S As Single
    N = Me.cboDepartment.Value: Z = Split(N): N = Z(0)
    For Each ws In Worksheets
    If ws.Name = N Then GoTo Setws
    Next
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = N
    Sheets("Lista").Rows(1).Copy Sheets(N).Range("A1")
    
Setws:    Set ws = Sheets(N)
' Write data to worksheet
    RowCount = ws.Range("A1").CurrentRegion.Rows.Count
    With ws.Range("A1")
        .Offset(RowCount, 0).Value = Me.cboDepartment.Value
        .Offset(RowCount, 1).Value = Me.txtAmount.Value
        .Offset(RowCount, 2).Value = Format(Now, "dd/mm/yyyy")
        For r = 2 To RowCount + 1: S = S + CSng(ws.Range("B" & r)): Next r
        .Offset(RowCount, 4).Value = S: S = 0
        .Offset(RowCount, 5).Value = .Offset(RowCount, 2).Value

    End With
' Clear the form
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
            ctl.Value = ""
        ElseIf TypeName(ctl) = "CheckBox" Then
            ctl.Value = False
        End If
    Next ctl
End Sub

You're welcome and thanks for the rep!