Сохраняйте несколько столбцов и сохраняйте остальные на основе введенных данных

Привет, у меня есть лист Excel с 5 аналогичными столбцами для каждого месяца (январь, февраль и т. д.).

У меня есть код VBA, который автоматически создаст столбцы на следующий месяц (в данном случае это будет март). После ввода данных за март я хочу, чтобы мой файл был сохранен как March.xls, удалив данные за оставшуюся часть месяца (при сохранении данных за все месяцы в исходном файле). есть ли способ сделать это с помощью VBA? Я был бы признателен за ваши ответы относительно того же. Я хочу, чтобы мой файл каждого месяца "сохранялся как" ниже:

Я нашел приведенный ниже код в Интернете, и он выполняет свою работу. Единственная проблема заключается в том, что мне нужно ввести имя столбца, который я хочу удалить в этом коде, например: «Апрель» в коде. Можно ли заставить этот код работать таким образом, чтобы автоматически сохранять последние четыре столбца и первый (столбец идентификатора) и удалять остальные. Спасибо

Sub DeleteData()
    Dim ws As Worksheet
    Dim ColList As String, ColArray() As String
    Dim LastCol As Long, i As Long, k As Long, l As Long, m As Long, j As Long
    Dim boolFound As Boolean
    Dim delCols As Range, delCols1 As Range, delCols2 As Range, delCols3 As Range
    Application.ScreenUpdating = False
    Set ws = Sheets("Sheet1")
    ColList = "April"
    ColArray = Split(ColList, ",")
    LastCol = ws.Cells.Find(What:="*", After:=ws.Range("A1"), Lookat:=xlPart, _
    LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
    MatchCase:=False).Column
    For i = 8 To LastCol
    boolFound = False
    For j = LBound(ColArray) To UBound(ColArray)
    If UCase(Trim(ws.Cells(1, i).Value)) = UCase(Trim(ColArray(j))) Then
    boolFound = True
    Exit For
    End If
    Next
    If boolFound = False Then
    If delCols Is Nothing Then
    Set delCols = ws.Columns(i)
    Else
    Set delCols = Union(delCols, ws.Columns(i))
    End If
    End If
    Next i
    If Not delCols Is Nothing Then delCols.Delete