Error en la macro para pasar datos a la hoja

Buenas a todos nuevamente...estoy con problemas en esta macro, 1- no me traspasa los datos del UserForm al seleccionar el mes; me da dos errores 

1 - Error de compilación...se requiere objeto ......(en este caso es cuando no desactivo ninguana línea de la macro)
2 - Se ha producido el error '-2147417848(80010108) en tiempo de ejecucion.: ..error en el metodo       'Apply' de objeto 'Sort'...(en este caso es cuando desactivo la línea  'Set MES = Sheets("Rucs Empresas")...me pueden dar una mano con esto...

la idea es que me arroje los datos segun la seleccion del mes que lo hago en el ComboBox4 y que me ordene por fecha que se encuentra en la columna A a partir de la fila 7

Todas las hojas de los meses; quisiera dejar protejida...este es el código

Private Sub CommandButton3_Click()........(Me pinta en AMARILLO)...Error 1
Dim MES As String
' BOTÓN REGISTRAR
Dim UltFila As Long

'MANDAR LOS DATOS EN SUS MESES RESPECTIVO

MES = ComboBox4.Value
If MES <> "" Then
    Set MES = Sheets("Rucs Empresas")......(La palabra MES..me pinta en AZUL)...si desactivo esta línea...Error 1
    Sheets(MES).Activate
    UltFila = Sheets(MES).Range("S" & Rows.Count).End(xlUp).Row + 1 ' busca la últíma fila para introducir los datos
    
    Sheets(MES).Range("A" & UltFila).Value = TextBox3 ' FECHA
    Sheets(MES).Range("B" & UltFila).Value = TextBox1 ' RUC's
    Sheets(MES).Range("C" & UltFila).Value = TextBox2 ' EMPRESAS
    Sheets(MES).Range("D" & UltFila).Value = TextBox6 ' N° FACTURAS
    Sheets(MES).Range("E" & UltFila).Value = TextBox3 ' N° TIMBRADO
    Sheets(MES).Range("F" & UltFila).Value = ComboBox1 ' TIPO DE DOCUMENTO
    Sheets(MES).Range("G" & UltFila).Value = TextBox8 'IMPORTE
    Sheets(MES).Range("H" & UltFila).Value = ComboBox2 ' TIPO DE CODIGO
    Sheets(MES).Range("J" & UltFila).Value = ComboBox3 ' % IVA
    Sheets(MES).Range("L" & UltFila).Value = TextBox9 'MONTO A CREDITO

' ORDENAR DATOS POR FECHA EN LOS MESES

Range("A7:S7").Select
Selection.AutoFilter
With ActiveWorkbook.Worksheets(MES).AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply......................................(esto me lo pinta de AMARILLO)..en el segundo error al desactivar la línea de Set....)
End With
Selection.AutoFilter
    
End If

MES = Empty
End Sub

Link del Archivo....gracias desde ya por su tiempo

https://drive.google.com/drive/folders/0B5-NlIfimBMURGRzeDh6bEJGaVU

https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF