Добавить новую строку в таблицу и автоматически заполнить определенные поля с указанным c текстом

Question

Имеет знания VBA, но не может сформулировать приведенную ниже формулу. Проблема: создайте новую строку и добавьте «S» в столбец C, но новую строку строки. Вставьте в столбец E (новая строка строки) имя созданного активного листа.

Постоянно создавайте новые строки подряд в течение года.

NewName = InputBox("Debit note Number")
Range("Table1[[#Headers],[Supplier]]").Select
Selection.End(xlDown).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Selection.ClearContents
OneMore = False

Answer 1

См. Документацию для ListObjects

Option Explicit
Sub insertRow()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet

    Dim oTbl As ListObject, oListRow As ListRow
    Set oTbl = ws.ListObjects.Item("Table1")
    Set oListRow = oTbl.ListRows.Add
    oListRow.Range.Value = oListRow.Range.Offset(-1, 0).Value
    oListRow.Range.Cells(1, 3).value = "S"
    oListRow.Range.Cells(1, 5).value = "New Sheet"

End Sub