VBA code, user form data entry to table specific to worksheet

[Taconumber]

Howdy,

I am new to VBA and am looking for some help with a macro.

A bit of the background, i am building myself a monthly budget spreadsheet to keep track of expenses and income.

I trying to code a button that i can add a expense for a month to a table within a specific worksheet which correlates to the month. I have got it somewhat working but i am stuck on assigning the entry to the specific months worksheet. my code is

Private Sub UserForm_Activate()
expcatE.RowSource = "cats"
expsubcat.RowSource = "subcat"
exptax.RowSource = "taxopt"
expmonth.RowSource = "month"
expfreq.RowSource = "freq"

End Sub
Private Sub CANCELBTN_CLICk()
add_expense.Hide
Unload add_expense

End Sub

Private Sub OKb_click()

targetsheet = expmonth.Value

Dim name As String
Dim budget As Double
Dim cost As Double
Dim catergory As String
Dim subcatergory As String
Dim frequency As String
Dim tax As String

name = expname.Text
budget = expbudg.Text
cost = expcost.Text
catergory = expcatE.Text
subcatergory = expsubcat.Text
frequency = expfreq.Text
tax = exptax.Text

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("expense")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add
With newrow
    .Range(1) = name
    .Range(2) = budget
    .Range(3) = catergory
    .Range(4) = subcatergory
    .Range(5) = frequency
    .Range(7) = cost
    .Range(9) = tax
  End With

With ws.ListObjects("EXPENSE").Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("EXPENSE[CATERGORY]"), Order:=xlAscending
    .Apply
End With

MsgBox ("data is added sucessfully")

add_expense.Hide
Unload add_expense
End Sub

So i have figured the code "targetsheet = expmonth.Value" where expmonth is a drop down combo box of the months. If i am not putting the data into a table this works to direct the userform data to the right sheet within a range of cells (1,1 2,4) etc. As you can see from my screen shot i have the dashboard of each month in a different sheet. I know a table cant have the same name across the sheets in the whole work book. I cant figure out how to get the data to export to a table in the corresponding month. If i name the table on the different sheets (expensejul, expensesaug, expensesep) etc would adding something like the code below work?

If targetsheet = "august" Then
Set tbl = ws.ListObjects("expenseaug")

I hope it make sense and someone can guide me in the right direction. I have been enjoying what i have learnt in a few days of VBA! i am sure there is going to be many more questions to come.