Sub Sbor11()
Dim Sht As Worksheet
Dim iLastRow As Long
Dim iLR As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
'Range("A10:K" & iLastRow).EntireRow.Clear '.Delete 'Clear
    For Each Sht In Worksheets
    If Sht.Name <> "Zvit" And Not Sht.Visible = xlSheetHidden Then
        With Sht
        iLR = .Cells(.Rows.Count, 5).End(xlUp).Row
        iLastRow = Cells(Rows.Count, 5).End(xlUp).Row + 1 '+
        If iLastRow < 5 Then iLastRow = 5
        .Range(.Cells(5, "a"), .Cells(iLR, "q")).Copy Cells(iLastRow, 1)
        End With
    End If
    Next
End Sub


If Sht.Name <> "Zvit" And Sht.Name = "ПВТР" Or Sht.Name = "Красноградський" Or Sht.Name = "Шебелинське" Or Sht.Name = "Стрійське" And Not Sht.Visible = xlSheetHidden Then

ShtName = array("янв", "фев", "мар", "и пр.")
For i=LBound(ShtName) to UBound(ShtName)
With WorkSheets(ShtName(i))
...
End With
Next

    For Each Sht In Worksheets
        If Sht.Visible Then
            Select Case Sht.Name
            Case "раз", "два", "три"
                With Sht
                    iLR = .Cells(.Rows.Count, 5).End(xlUp).Row
                    iLastRow = Sheets("Zvit").Cells(Sheets("Zvit").Rows.Count, 5).End(xlUp).Row + 1   '+
                    If iLastRow < 5 Then iLastRow = 5
                    .Range(.Cells(5, "a"), .Cells(iLR, "q")).Copy Sheets("Zvit").Cells(iLastRow, 1)
                End With
            End Select
        End If
    Next

               With Sht
                    iLR = .Cells(.Rows.Count, 5).End(xlUp).Row
                    If iLR >= 5 Then
                    iLastRow = Sheets("Zvit").Cells(Sheets("Zvit").Rows.Count, 5).End(xlUp).Row + 1   '+
                    If iLastRow < 5 Then iLastRow = 5
                    .Range(.Cells(5, "a"), .Cells(iLR, "q")).Copy Sheets("Zvit").Cells(iLastRow, 1)
                    End If
                End With


If iLR >= 5 Then

Sub Sbor12()
Dim Sht As Worksheet
Dim iLastRow As Long
Dim iLR As Long
Dim i As Long
Dim ShtName
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
If iLastRow < 5 Then iLastRow = 5
Range("A5:Q" & iLastRow).EntireRow.Clear '.Delete 'Clear
ShtName = Array("ПВТР", "Красноградський", "Шебелинське", "Стрійське")
For i = LBound(ShtName) To UBound(ShtName)
    With Worksheets(ShtName(i))
        If .Visible Then
        iLR = .Cells(.Rows.Count, 5).End(xlUp).Row
            If iLR >= 5 Then
            iLastRow = Sheets("Zvit").Cells(Sheets("Zvit").Rows.Count, 5).End(xlUp).Row + 1   '+
            If iLastRow < 5 Then iLastRow = 5
                .Range(.Cells(5, "a"), .Cells(iLR, "q")).Copy Sheets("Zvit").Cells(iLastRow, 1)
            End If
        End If
    End With
Next
End Sub