user forms to add data to columns

It has been a while since using Excel so I am quite rusty and I am struggling with user forms. I have a workbook with 2 sheets which each need a form for someone to interface with to add records. I know how to build the forms I just can't figure out the VBA coding to get them fuctional. I was hoping someone could give my example a look and give a hand. I am currently using Excel 2007.

Any help would be greatly appreciated.

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Insert a UserForm, add two comboboxes a TextBox & a commandbutton.

This code will add load the comboboxes & enter input data

Option Explicit
Private Sub CommandButton1_Click()
    Dim Col    As Long
    Dim Rw     As Long
    With Me
        If .ComboBox1.ListIndex > 1 Then
            Col = .ComboBox1.ListIndex + 2
        Else: MsgBox "Please select a Week"
            .ComboBox1.SetFocus
            Exit Sub
        End If
        If .ComboBox2.ListIndex > 1 Then
            Rw = .ComboBox1.ListIndex + 2
        Else: MsgBox "Please select a week"
            .ComboBox1.SetFocus
            Exit Sub
        End If
        Sheet1.Cells(Rw, Col).Value = .TextBox1.Value
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim rSource As Range
    Dim i      As Integer
    For i = 1 To 52
        Me.ComboBox1.AddItem i
    Next i
    With Sheet1    '<- check this is the correct sheet
        Set rSource = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Me.ComboBox2.List = rSource.Value
    End With
End Sub