Private Sub MakeReportXLS(tData() As tWB_Data, Payee As String)
Dim wb         As Workbook
Dim i          As Integer
Dim rRow       As Double
Dim r          As Range

On Error Resume Next

Application.ScreenUpdating = False

Set wb = Workbooks.Add

wb.Sheets("Sheet1").Range("A1").CurrentRegion.Delete Shift:=xlUp
Set r = wb.Sheets("Sheet1").Range("A1")

r.Offset(0, 0).Value = "Поле 1"
r.Offset(0, 1).Value = "Поле 2"
r.Offset(0, 2).Value = "Поле 3"
r.Offset(0, 3).Value = "Поле 4"
r.Offset(0, 4).Value = "Поле 5"
r.Offset(0, 5).Value = "Поле 6"
r.Offset(0, 6).Value = "Поле 7"
r.Offset(0, 7).Value = "Поле 8"
r.Offset(0, 8).Value = "Поле 9"
r.Offset(0, 9).Value = "Поле 10"
r.Offset(0, 10).Value = "Поле 11"
r.Offset(0, 11).Value = "Поле 12"

rRow = 0

For i = 1 To UBound(tData)
    If tData(i).Flag = "Flag 1" Or tData(i).Flag = "Flag 2" Then
        rRow = rRow + 1
        r.Offset(rRow, 0).Value = tData(i).Value_1
        r.Offset(rRow, 1).Value = tData(i).Value_2
        r.Offset(rRow, 2).Value = tData(i).Value_3
        r.Offset(rRow, 3).Value = tData(i).Value_4
        r.Offset(rRow, 4).Value = tData(i).Value_5
        r.Offset(rRow, 5).Value = tData(i).Value_6
        r.Offset(rRow, 6).Value = tData(i).Value_7
        r.Offset(rRow, 7).Value = tData(i).Value_8
        r.Offset(rRow, 8).Value = tData(i).Value_9
        r.Offset(rRow, 9).Value = tData(i).Value_10
        r.Offset(rRow, 10).Value = tData(i).Value_11
        Select Case tData(i).Flag
            Case "Flag 1"
                r.Offset(rRow, 11).Value = "Указан флаг №1"
            Case "Flag 2"
                r.Offset(rRow, 11).Value = "Указан флаг №2"
        End Select
    End If
Next i

'*******************Format Sheet***********************
Set r = r.CurrentRegion
With r
    .Borders.LineStyle = xlContinuous
    .Borders(xlEdgeBottom).Weight = xlMedium
    .Borders(xlEdgeTop).Weight = xlMedium
    .Borders(xlEdgeLeft).Weight = xlMedium
    .Borders(xlEdgeRight).Weight = xlMedium
    .Columns(3).Borders(xlEdgeRight).Weight = xlMedium
    For i = .Rows.count To 1 Step -2
        .Rows(i).Interior.Color = RGB(255, 255, 153)
        .Rows(i - 1).Interior.Color = RGB(219, 229, 241)
    Next i
    .Rows(1).Interior.Color = RGB(178, 178, 178)
    .Columns(6).NumberFormat = "0"
    .Columns(4).NumberFormat = "0"
    .EntireColumn.AutoFit
End With
'*************************************************************
wb.Sheets("Sheet1").Name = "Data"
Application.DisplayAlerts = False
wb.Sheets("Sheet2").Delete
wb.Sheets("Sheet3").Delete
wb.SaveAs Filename:=ThisWorkbook.Path & "\Reports\" & Payee & " SW Report " & _
                    Format(Date, "ddmmyyyy") & ".xls", FileFormat:=xlExcel8
Application.DisplayAlerts = True

wb.Close
Set wb = Nothing

Application.ScreenUpdating = True
End Sub

wb.SaveAs Filename:=ThisWorkbook.Path & "\Reports\" & Payee & " SW Report " & _
                    Format(Date, "ddmmyyyy") & ".xls", FileFormat:=xlExcel8