Validacion de una Celda para mostrar datos filtrados por Macro

¡ Hola buen día a todos!

Mi consulta es la siguiente:
Tengo que filtrar unos datos de acuerdo a una celda que contiene una lista; es decir si de esa lista selecciono el Mes de Septiembre, los datos tienen que filtrar por el criterio de Septiembre.

Este es mi boton que realiza un autofiltro para mostrar los datos, el criterio lo tendria que agregar, pero la validacion de la celda es lo que me faltaria.

'/***************************** TERMINACIÓN *****************************
Sub Mostrar_todo_TERM()
'
Application.ScreenUpdating = False
Rows("48:300").Select
Selection.EntireRow.Hidden = False
Range("D49:U49").Select
Selection.AutoFilter
ActiveSheet.Range("$D$49:$U$49").AutoFilter Field:=1
Range("B48").Select

End Sub

Sub Ocultar_todo_TERM()

Range("D49:U49").Select
Selection.AutoFilter
Rows("49:300").Select
Selection.EntireRow.Hidden = True
Range("B48").Select

End Sub

NOTA: La celda donde esta mi lista es S4

De antemano gracias por el apoyo.