Lo ideal sería que tuvieses esos valores en una columna, ahora, teniendo esto podrías realizar un filtro de un filtro con los rangos en los cuales deseas buscar:
Public Sub selectLastMonth()
Dim ws As Worksheet
Dim finicio As Date, ffin As Date
Set ws = ActiveSheet
ws.Range("A:B").Sort key1:=ws.Range("A2"), header:=xlYes
ffin= ws.Range("A1").End(xlDown).Value
finicio = DateSerial(DatePart("yyyy", ffin), DatePart("m", ffin), 1)
ws.Range("A:B").AutoFilter field:=1, Criteria1:=">=" & finicio, Operator:=xlAnd, Criteria2:="<=" & ffin
Set ws = Nothing
End Sub