$month_names=['','Январь','Февраль',...
и для вывода пользуйся $month_names[$mon]
<section id="banner">
<div class="banner-content">
<img src="#" id="woman-photo" alt="">
<div class="banner-text-content">
<h2>Лето 2021</h2>
<a href="#">Узнать подробнее</a>
</div>
</div>
</section>
width
и margin: 0 auto;
;Option Explicit
Sub Строки_на_Лист()
' не торопясь
Dim wbk As Workbook: Set wbk = ActiveWorkbook
Dim wsh_Temp As Worksheet
Set wsh_Temp = wbk.Worksheets.Add(after:=Worksheets(Worksheets.Count))
Dim wsh As Worksheet, cel As Range
For Each wsh In wbk.Worksheets
If wsh.Name <> wsh_Temp.Name Then
For Each cel In Application.Intersect(wsh.UsedRange, wsh.Columns(6).Cells)
If cel.Value < 0 Then
cel.EntireRow.Copy wsh_Temp.Cells(Row_Bottom_Number(wsh_Temp) + 1, 1)
End If
Next
End If
Next
End Sub
Function Row_Bottom_Number(ws As Worksheet) As Long
' Найти последнюю строку с данными, непустую
Dim r As Range
Set r = ws.Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If r Is Nothing Then
Row_Bottom_Number = 1
Else
Row_Bottom_Number = r.Row
End If
End Function