Excel - Eliminar columna según mes actual

Sub EliminarMes()

'Eliminar Mes

Sheets("Inicio").Select

Range("A:B, E:L, O:S, V:Z, AB:CA").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

End Sub

Sub Cabeceras_Por_Posicion()

    Dim Col As Integer, Mes As Byte

    For Col = 80 To 1 Step -1

        Mes = Month(Date) + 21

        Select Case Col

            Case 3, 4, 13, 14, 20, 21, Mes

            Case Else

               Columns(Col).Select

               Selection.Delete Shift:=xlToLeft

        End Select

    Next

End Sub

Sub Cabeceras_Por_Nombre()

    Dim Col As Integer, A As Byte, Tabla(7) As String, _

        Borrar As Boolean

    Tabla(1) = "Nif"

    Tabla(2) = "Nombre Completo"

    Tabla(3) = "Id Tipo RJ"

    Tabla(4) = "Categoria "

    Tabla(5) = "ID Producto"

    Tabla(6) = "Descripción"

    Select Case Month(Date)

        Case 1: Tabla(7) = "Enero"

        Case 2: Tabla(7) = "Febrero"

        Case 3: Tabla(7) = "Marzo"

        Case 4: Tabla(7) = "Abril"

        Case 5: Tabla(7) = "Mayo"

        Case 6: Tabla(7) = "Junio"

        Case 7: Tabla(7) = "Julio"

        Case 8: Tabla(7) = "Agosto"

        Case 9: Tabla(7) = "Septiembre"

        Case 10: Tabla(7) = "Octubre"

        Case 11: Tabla(7) = "Noviembre"

        Case 11: Tabla(7) = "Diciembre"

    End Select

    For Col = 80 To 1 Step -1

        Borrar = True

        For A = 1 To 7

            If Cells(1, Col) = Tabla(A) Then Borrar = False

        Next

        If Borrar Then

           Columns(Col).Select

           Selection.Delete Shift:=xlToLeft

        End If

    Next

End Sub