Sub DelMonthColumn()
    Dim R As Range, Target As Range
    
    For Each R In Range("B2:R2")
      If R.Value <> "" Then
        If R.Value <> "Январь" And R.Value <> "Июль" Then
          If Target Is Nothing Then
               Set Target = R.MergeArea
           Else
               Set Target = Union(Target, R.MergeArea)
          End If
        End If
      End If
    Next
    
    Target.EntireColumn.Delete

End Sub

Sub DelMonthColumn()
Dim R As Range, Target As Range, ws as worksheet
  For Each ws in Activeworkbook.worksheets  
    For Each R In ws.Range("B2:IV2").End(xlToLeft)
      If R.Value <> "" Then
        If R.Value <> "Январь" And R.Value <> "Июль" Then
          If Target Is Nothing Then
               Set Target = R.MergeArea
           Else
               Set Target = Union(Target, R.MergeArea)
          End If
        End If
      End If
    Next R
    
    Target.EntireColumn.Delete
    Set Target = Nothing

 Next ws
End Sub

Sub DelMonthColumn()
Dim R As Range, Target As Range, ws as worksheet
' запуск цикла по всем рабочим листам
  For Each ws in Activeworkbook.worksheets  
' запуск цикла по всем ячейкам второй строки, начиная со второго столбца, заканчивая последней заполненной  
  For Each R In ws.Range("B2:IV2").End(xlToLeft)
' Проверка - Если ячейка не пустая, то идём дальше 
     If R.Value <> "" Then
' Проверка - Если значение в ячейке неравно "Январь" и неравно "Июль", то идём дальше 
        If R.Value <> "Январь" And R.Value <> "Июль" Then
' Проверка - Если наш итоговый диапазон ещё пустой, то приравниваем его к объединённому диапазону, в который входит наша непустая ячейка и не равная нашим месяцам. Если наш итоговый диапазон Target уже непустой, то объединяем его с всё с той же областью объединённой ячейки.
          If Target Is Nothing Then
               Set Target = R.MergeArea
           Else
               Set Target = Union(Target, R.MergeArea)
          End If
        End If
      End If
' Следующая ячейка
    Next R

'Удаляем все строки, которым принадлежат ячейки нешего итогового диапазона    
    Target.EntireColumn.Delete
' обнуление переменной итогового диавпазона
    Set Target = Nothing
' Следующий лист
 Next ws
End Sub

Sub DelMonthColumn()
Dim R As Range, Target As Range, ws as worksheet
' запуск цикла по всем рабочим листам
  For Each ws in Activeworkbook.worksheets
'  Для замены формул на значения
 ws.usedrange.value = ws.usedrange.value
 ' запуск цикла по всем ячейкам второй строки, начиная со второго столбца, заканчивая последней заполненной  
  For Each R In ws.Range("B2:IV2").End(xlToLeft)
' Проверка - Если ячейка не пустая, то идём дальше 
     If R.Value <> "" Then
' Проверка - Если значение в ячейке неравно "Январь" и неравно "Июль", то идём дальше 
        If R.Value <> "Январь" And R.Value <> "Июль" Then
' Проверка - Если наш итоговый диапазон ещё пустой, то приравниваем его к объединённому диапазону, в который входит наша непустая ячейка и не равная нашим месяцам. Если наш итоговый диапазон Target уже непустой, то объединяем его с всё с той же областью объединённой ячейки.
          If Target Is Nothing Then
               Set Target = R.MergeArea
           Else
               Set Target = Union(Target, R.MergeArea)
          End If
        End If
      End If
' Следующая ячейка
    Next R

'Удаляем все строки, которым принадлежат ячейки нешего итогового диапазона    
    Target.EntireColumn.Delete
' обнуление переменной итогового диавпазона
    Set Target = Nothing
' Следующий лист
 Next ws
End Sub

If R.Value <> "Январь" And R.Value <> "Июль" Then

If UCase(R.Value) <> "ЯНВАРЬ" And UCase(R.Value) <> "ИЮЛЬ" Then

Sub DelMonthColumn()
Dim R As Range, Target As Range, ws as worksheet
' запуск цикла по всем рабочим листам
  For Each ws in Activeworkbook.worksheets
'  Для замены формул на значения
 ws.usedrange.value = ws.usedrange.value
 ' запуск цикла по всем ячейкам второй строки, начиная со второго столбца, заканчивая последней заполненной  
  For Each R In  ws.Range("B2", ws.Range("B2:IV2").End(xlToLeft))
' Проверка - Если ячейка не пустая, то идём дальше 
     If R.Value <> "" Then
' Проверка - Если значение в ячейке неравно "Январь" и неравно "Июль", то идём дальше (имена месяцев в верхнем регистре)
        If UCase(R.Value) <> "ЯНВАРЬ" And UCase(R.Value) <> "ИЮЛЬ" Then 
' Проверка - Если наш итоговый диапазон ещё пустой, то приравниваем его к объединённому диапазону, в который входит наша непустая ячейка и не равная нашим месяцам. Если наш итоговый диапазон Target уже непустой, то объединяем его с всё с той же областью объединённой ячейки.
          If Target Is Nothing Then
               Set Target = R.MergeArea
           Else
               Set Target = Union(Target, R.MergeArea)
          End If
        End If
      End If
' Следующая ячейка
    Next R

'Удаляем все строки, которым принадлежат ячейки нешего итогового диапазона, если он не пустой
    If not Target Is Nothing Then Target.EntireColumn.Delete
' обнуление переменной итогового диавпазона
    Set Target = Nothing
' Следующий лист
 Next ws
End Sub

 For Each R In  ws.Range("B2", ws.Range("B2:IV2").End(xlToLeft))

  For Each R In ws.Range("B2", ws.Range("IV2").End(xlToLeft))