Программное добавление строки

Sub Окантовка()
 
'сделать окантовку выделенной, выделенных ячеек
'With Selection.Borders
'сделать окантовку листа
    With ActiveWorkbook.Worksheets("Лист1").Cells.Borders
        'сделать не жирной линией
        .Weight = xlThin
        'сделать жирной линией
        .Weight = xlMedium
        'сделать чёрного цвета
        .ColorIndex = 1
        'сделать белого цвета
        .ColorIndex = 2
        'сделать красного цвета
        .ColorIndex = 3
        'сделать зеленого цвета
        .ColorIndex = 4
        'сделать синего цвета
        .ColorIndex = 5
        'сделать жёлтого цвета
        .ColorIndex = 6
        'сделать лилового цвета
        .ColorIndex = 7
        'сделать бирюзового цвета
        .ColorIndex = 8
        'сделать коричневого цвета
        .ColorIndex = 9
        'сделать изумрудного цвета
        .ColorIndex = 10
    End With
 
End Sub

'задаём размер шрифта для активной ячейки равным 14
Application.ActiveCell.Font.Size = 14
 
'задаём размер шрифта для ... ячейки равным ..., ячейки через запятую, значит несколько ячеек
Worksheets("Лист1").Range("b3,f11").Font.Size = 18
 
'задаём размер шрифта для ... ячейки равным ..., ячейки через ":", значит группа ячеек, диапазон
Worksheets("Лист1").Range("b3:f11").Font.Size = 18
 
'задаём цвет шрифта для ... ячейки ...
Worksheets("Лист1").Range("a1").Font.ColorIndex = 3 'красный
 
'задаём цвет ... ячейки ...
Worksheets("Лист1").Range("A5").Interior.ColorIndex = 5 'синий
 
'вносим данные в ячейку, ячейка A1 это будет в активном файле, в активном листе
Range("A1") = "АБВГД"
 
'вносим данные в ячейки
Worksheets("Лист1").Range("b3:f11") = 14
 
'значение ячейки Excel без пробелов в начале и в конце ячейки
Значение = Trim(Worksheets("Лист1").Range("c1").Value)

Private Sub CommandButton1_Click()
    With Range("Таблица2")
        .ListObject.ListRows.Add (.ListObject.ListRows.Count)
        .Cells(.ListObject.ListRows.Count - 1, 1).Value = .ListObject.ListRows.Count - 2
        .Cells(.ListObject.ListRows.Count - 1, 2).Value = TextBox1.Value
    End With
End Sub

Private Sub CommandButton1_Click()
  With Sheets("Лист1").ListObjects("Таблица2")
    Dim i As Integer: i = .ListRows.Count
    .ListRows(i).Range.Cells(1, 1).Value = i - 1
    .ListRows(i).Range.Cells(1, 2).Value = TextBox1.Value
    .ListRows.Add
  End With
  Unload Me
End Sub