VBS, форматирование ячеек Excel

Формулировка задачи:

Всем доброго времени суток!
Нужна Ваша помощь, коллеги.
Работаю в БК (БОСС-кадровик), работа над формированием отчета, как я понял - на vbs. Сильно не пинайте, раньше никогда с БК не работал.
На текущий момент имеется следующий код:

local Query_ as string; 

 ADODB.Connection as AutoCon; 
 ADODB.Recordset as AutoSet; 
 AutoCon.Open('@@xUtil{dsq}'); 
 AutoSet.CursorLocation = 2; 

 CON Формирование справочника причин к видам оплат...; 

let Query_='текст_примитивного_запроса_select'; 

 AutoSet.Open(:Query_, :AutoCon, 3, 1, 1); 

 execute xOCX {Excel.Application as Excel}; 

 local vb.Record=&AutoSet; 
 local vb.Excel=&Excel; 

 vb 
 {
 Excel.ScreenUpdating = 0 
 Excel.EnableEvents = 0 
 Dim WorkBook

 Set WorkBook=Excel.Workbooks.Add() 

 WorkBook.Worksheets(1).Cells.WrapText = True
 WorkBook.Worksheets(1).Cells.Font.Name = "Times New Roman"
 WorkBook.Worksheets(1).Cells.Font.Size = 10
 WorkBook.Worksheets(1).Rows(1).Font.Bold = 1
 WorkBook.Worksheets(1).Range("A1:E1").Interior.ColorIndex = 6
 WorkBook.Worksheets(1).Range("A1:E1").Borders.LineStyle = -4118

 WorkBook.Worksheets(1).Columns(1).ColumnWidth = 8.43 
 WorkBook.Worksheets(1).Columns(2).ColumnWidth = 10.14
 WorkBook.Worksheets(1).Columns(3).ColumnWidth = 29.14 
 WorkBook.Worksheets(1).Columns(4).ColumnWidth = 10.29
 WorkBook.Worksheets(1).Columns(5).ColumnWidth = 58.86 

 WorkBook.Worksheets(1).Cells(1,1) = "название_столбца_1"
 WorkBook.Worksheets(1).Cells(1,2) = "название_столбца_2"
 WorkBook.Worksheets(1).Cells(1,3) = "название_столбца_3"
 WorkBook.Worksheets(1).Cells(1,4) = "название_столбца_4"
 WorkBook.Worksheets(1).Cells(1,5) = "название_столбца_5"
 
 WorkBook.Worksheets(1).Cells(2,1).CopyFromRecordset Record

 WorkBook.Worksheets(1).Rows.AutoFit
 WorkBook.Worksheets(1).Columns.VerticalAlignment = -4108 
 WorkBook.Worksheets(1).Columns(1).HorizontalAlignment = -4108
 WorkBook.Worksheets(1).Columns(2).HorizontalAlignment = -4131
 WorkBook.Worksheets(1).Columns(3).HorizontalAlignment = -4131
 WorkBook.Worksheets(1).Columns(4).HorizontalAlignment = -4108
 WorkBook.Worksheets(1).Columns(5).HorizontalAlignment = -4131
 WorkBook.Worksheets(1).Rows(1).VerticalAlignment = -4108 
 WorkBook.Worksheets(1).Rows(1).HorizontalAlignment = -4108

 Excel.ScreenUpdating = 1 
 Excel.EnableEvents = 1 
 }; 

 AutoSet.Close; 

 CON; 

 execute xOCX{ 
 Excel.Visible=True; 
 }; 

 execute xOcxFree(AutoSet); 
 execute xOcxFree(Excel); 
 execute xOcxFree(AutoCon); 

В итоге я получаю excel-файл, который сразу открывается и заполнен данными, которые получает запрос. Заполняю начиная со второй строки (первая строка нечто вроде шапки).
Получаю в итоге что-то вроде такой таблицы в excel:
шапка шапка шапка шапка шапка
11111 11111 11111 ааааа ааааа
11111 11111 11111 ааааа ааааа
22222 22222 22222 ааааа ааааа
22222 22222 22222 ааааа ааааа
22222 22222 22222 ааааа ааааа
33333 33333 33333 ааааа ааааа
33333 33333 33333 ааааа ааааа
Нужно ее переформатировать вот в такой вид:
шапка шапка шапка шапка шапка
11111 11111 11111 ааааа ааааа
ааааа ааааа
22222 22222 22222 ааааа ааааа
ааааа ааааа
ааааа ааааа
33333 33333 33333 ааааа ааааа
ааааа ааааа
Т.е. если в первом, втором и третьем столбце значение совпадает с предыдущим - то ячейки 1го, 2го и 3го столбце в этой строке очистить. И так до конца документа.
Каким образом можно подобное реализовать?
Заранее благодарю за ответ.

Решение задачи: «VBS, форматирование ячеек Excel»

textual
                            Листинг программы 
                        

                            Dim row
Dim baserow

With WorkBook.Worksheets(1)
baserow=2
row=3

Do Until IsEmpty(.Cells(row,1))
  If .Cells(baserow,1)=.Cells(row,1) And .Cells(baserow,2)=.Cells(row,2) And .Cells(baserow,3)=.Cells(row,3) Then
    .Cells(row,1) = ""
    .Cells(row,2) = ""
    .Cells(row,3) = ""
  Else
    With .Range("A" & baserow & ":H" & row).Borders(7)
        .LineStyle = 1
    End With

    With .Range("A" & baserow & ":H" & row).Borders(8)
        .LineStyle = 1
    End With

    With .Range("A" & baserow & ":H" & row).Borders(9)
        .LineStyle = 1
    End With

    With .Range("A" & baserow & ":H" & row).Borders(10)
        .LineStyle = 1
    End With
    
    baserow = row
  End If
row = row + 1
Loop
End With

                        