You something like this in your Userform Module.
Change the Range Addresss to suit you Lists
Private Sub UserForm_Initialize()
With ComboBox1
.List = Array("Auto", "Transport", "Entertainment", "Food and Dining")
.ListIndex = 0
End With
End Sub
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = "Auto": ComboBox2.List = Range("A1:A10").Value
Case Is = "Transport": ComboBox2.List = Range("B1:B10").Value
Case Is = "Entertainment": ComboBox2.List = Range("C1:C10").Value
Case Is = "Food and Dining": ComboBox2.List = Range("D1:D10").Value
End Select
ComboBox2.ListIndex = 0
End Sub
Bookmarks