Как создать и отредактировать рамку в документе xls из VBA

With ActiveWorkbook.Worksheets('Ðóêàâèöû')
    cell1 = 'A6'
    cell2 = 'H' & strr
    Range(cell1, cell2).Borders(xlDiagonalDown).LineStyle = xlNone
    Range(cell1, cell2).Borders(xlDiagonalUp).LineStyle = xlNone
    With Range(cell1, cell2).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range(cell1, cell2).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range(cell1, cell2).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range(cell1, cell2).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range(cell1, cell2).Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range(cell1, cell2).Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Do Until .Cells(strr, 2).Value = ''
        .Rows(strr).Delete
    Loop 
end with

Sub Book_Create()
Workbooks.Add
With ActiveWorkbook.Worksheets('Лист1')
   .Cells(1, 1).Value = 'Вот такая вот фигня :)'
End With
ActiveWorkbook.SaveAs Filename:='C:Мои документыПроба.xls', FileFormat:=xlNormal
End Sub

Function xls_new()
Dim path_out, file_spr
Dim mytable As Recordset
Dim wrdApp As Object
Set mydb = DBEngine.Workspaces(0).Databases(0)
 
file_spr = 'C:GWS2Woutсправка_' & Format(Now(), 'dd.mm.yy') & '.xls'
Set wrdApp = CreateObject('Excel.Application')
'подготовка выборки
DoCmd.SetWarnings (False)
DoCmd.OpenQuery 'spr_01'
DoCmd.OpenQuery 'spr_02'
     
Set radd = mydb.OpenRecordset('spr_03')
 
Dim pn As Integer
Dim prcl As String
Dim top As Integer
 
wrdApp.Workbooks.Add
With wrdApp.Worksheets('Лист1')
'заполнение шапки справки
.cells(1, 2).Value = 'Справка по глинозему ' & Format(Now(), 'dd.mm.yy')
.cells(1, 2).Font.name = 'Comic Sans MS'
.cells(1, 2).Font.Size = 14
.cells(1, 2).Font.Italic = True
.cells(2, 2).Value = '№№'
.cells(3, 2).Value = 'п/п'
.cells(2, 3).Value = 'Назначение маршрута после'
.cells(3, 3).Value = 'отгрузки'
.cells(2, 4).Value = 'вес'
.cells(3, 4).Value = 'нетто'
.cells(2, 5).Value = 'к-во'
.cells(3, 5).Value = 'ваг.'
.cells(2, 6).Value = 'контроль'
.cells(3, 6).Value = '№'
.cells(2, 7).Value = 'Ст.'
.cells(3, 7).Value = 'операции'
.cells(2, 8).Value = 'назначение'
.cells(3, 8).Value = 'после выгруз.'
.cells(2, 9).Value = 'опер'
.cells(2, 10).Value = 'дата'
.cells(2, 11).Value = 'Время'
'ширина столбцов
.Columns('A:A').ColumnWidth = 2
.Columns('B:B').ColumnWidth = 4.2
.Columns('C:C').ColumnWidth = 36.7
.Columns('D:D').ColumnWidth = 6.1
.Columns('E:E').ColumnWidth = 4.1
.Columns('F:F').ColumnWidth = 7.4
.Columns('G:G').ColumnWidth = 17
.Columns('H:H').ColumnWidth = 13.3
.Columns('I:I').ColumnWidth = 4.4
.Columns('J:J').ColumnWidth = 8.1
.Columns('K:K').ColumnWidth = 8.1
'рамки заголовка
For j = 2 To 11
 For i = 1 To 3
  .cells(2, j).Borders(i).LineStyle = 1
 Next i
Next j
For i = 2 To 12
 .cells(3, i).Borders(1).LineStyle = 1
Next i
'заполнение многострочной части справки
radd.MoveFirst
pn = 1
For top = 4 To radd.RecordCount
     If prcl <> radd![Клиент] Then
      .cells(top, 2).Value = pn
      .cells(top, 3).Value = radd![Клиент]
      .cells(top, 2).Font.Size = 8
      .cells(top, 3).Font.Size = 8
      pn = pn + 1
      .cells(top, 3).Borders(3).LineStyle = 1
      .cells(top, 2).Borders(3).LineStyle = 1
     End If
      .cells(top, 4).Value = radd![Sum-Вес]
      .cells(top, 5).Value = radd![Count-№]
      .cells(top, 6).Value = radd![First-№]
      .cells(top, 7).Value = radd![Ст]
      .cells(top, 8).Value = radd![СтН]
      .cells(top, 9).Value = radd![Опер]
      .cells(top, 10).Value = Format(radd![First-ДатаВремя], 'dd.mm.yy')
      .cells(top, 11).Value = Format(radd![First-ДатаВремя], 'hh:nn')
      For i = 2 To 11
      .cells(top, i).Font.Size = 8
       If (i <> 3) And (i <> 2) Then
        For j = 1 To 4
         .cells(top, i).Borders(j).LineStyle = 1
        Next j
       End If
      
      Next i
     .cells(top, 2).Borders(1).LineStyle = 1
     .cells(top, 3).Borders(1).LineStyle = 1
     prcl = radd![Клиент]
     radd.MoveNext
     
Next top
'прорисовка рамки последней строки
i = top - 1
.cells(i, 3).Bo

wrdApp.Worksheets('Лист1').SaveAs FileName:=file_spr
'wrdApp.Visible = True
wrdApp.Workbooks.Close