Amalgamating VBA codes into one

[yogin2]

Hi, I'm new to VBA is keen to learn.

I'm currently using the codes below. Which uses Autfilter and sorts accordingly. I have many criterias which means I will need to create lots of codes for each criteria and run the code.

Is is possible to amalgamate the code into one and select the criteria from a drop downmenu. (Enter Date and then select criteria eg. 03/07/08 - MEX)

Or can someone guide me where to start?

Sub ExceptionsMids()
'

'
Dim MyDate As Date, StringDate As String
With Sheets("Daily Sheet")
    StringDate = InputBox("Enter Date")
    If IsDate(StringDate) Then
        MyDate = DateValue(StringDate)
        .Range("D2") = MyDate
    Else
        MsgBox "Invalid Date"
        Exit Sub
    End If
    .Range("$B$4:$D$460").AutoFilter Field:=3, Criteria1:="MEX"
    Sheets("Daily Sheet").Select
End With
End Sub
----------------------------------

Sub ExceptionsDays()
'
'
Dim MyDate As Date, StringDate As String
With Sheets("Daily Sheet")
    StringDate = InputBox("Enter Date")
    If IsDate(StringDate) Then
        MyDate = DateValue(StringDate)
        .Range("D2") = MyDate
    Else
        MsgBox "Invalid Date"
        Exit Sub
    End If
    .Range("$B$4:$D$460").AutoFilter Field:=3, Criteria1:="DEX"
    Sheets("Daily Sheet").Select
End With
End Sub

Thanks

Yogin