Hey guys I am trying to build a userfrom that allows the user to input some data and that data to be placed in a specific cell.

Private Sub Sae_data_Click()
Dim colnumber As Variant
Dim rownumber As Variant
Dim findrownumber As Long
Dim findcolnumber As Long



With Worksheets("Total")
    Set rownumber = .Range("c:c").find(what:="textbox1.text", LookIn:=xlValues)
    Set colnumber = .Range("a:fk").find(what:="listbox1.text" & "listbox2.text", LookIn:=xlValue)
End With
    findrownumber = rownumber.row
    findcolnumber = colnumber.column

    Cells(findrownumber, findcolnumber).TextBox4.Text

End Sub


Private Sub UserForm_Initialize()
With ListBox1
        .AddItem "Jan"
        .AddItem "Feb"
        .AddItem "March"
        .AddItem "April"
        .AddItem "May"
        .AddItem "June"
        .AddItem "July"
        .AddItem "August"
        .AddItem "Sept"
        .AddItem "Oct"
        .AddItem "Nov"
        .AddItem "Dec"
        End With
With ListBox2
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AddItem "4"
        End With
lbl_Exit:
    Exit Sub

End Sub

Basically I want to enter data in a cell that meets some criteria.
Any help is appreciated. Thank you