Обратная нумерация списка

Sub P1()
Dim i As Long
With ActiveDocument.Tables(1)
    For i = 2 To .Rows.Count Step 1
        .Cell(i, 1).Range.Text = Val(.Cell(i - 1, 1).Range.Text) - 1
    Next i
End With
MsgBox "Работа макроса завершена", vbInformation
End Sub

Sub P1()
Dim i As Long
'Вставляем в первую ячейку число с таким расчётом,
'чтобы в ячейке, где находится курсор, оказался ноль.
Selection.Tables(1).Cell(1, 1).Range.Text = Selection.Cells(1).RowIndex - 1
'Расставляем остальные числа.
With Selection.Tables(1)
    For i = 2 To .Rows.Count Step 1
        .Cell(i, 1).Range.Text = Val(.Cell(i - 1, 1).Range.Text) - 1
    Next i
End With
MsgBox "Работа макроса завершена", vbInformation
End Sub

Sub P1()
'С помощью Dim создаём в оперативной памяти компьютера поименованную
'область (переменную) i. Имя i принято использовать в циклах.
'В данном случае переменная используется,
'чтобы пройтись по всем ячейкам первого столбца.
'Ниже я покажу, как переменная используется.
'Long - означает, что в переменной i могут быть только числа и
'при том только целые (есть ещё дробные). На данном этапе вашего
'знания VBA не заостряйте внимание на этом. Просто если знаете,
'что в переменных будут целые числа используйте Long, если дробные Double.
Dim i As Long
'Вставляем в первую ячейку число с таким расчётом,
'чтобы в ячейке, где находится курсор, оказался ноль.
'Selection - означает, что мы работает в том месте, где находится курсор
'или где выделено. Альтернативой является, например:
'Activedocument.Range(Start:=0, End:=0)
'что означает - работу в самом начале документа.
'Tables(1) - выделено может быть несколько таблиц одновременно,
'поэтому нужно указать, с какой таблицей работать. (1) - означает,
'что нужно работать с первой таблицей в выделенном диапазоне.
'В нашем случае ничего не выделено, поэтому это просто правило написания кода и
'не имеет смысла, т.к. если ничего не выделено, то речь идёт об одной таблице.
'Cell(1, 1) - означаете первую ячейку в таблице (первая строка, первый столбец).
'Range - не заостряйте на этом внимание, просто запомните, чтобы поместить
'в ячейку текст, нужно записать сначала Range.
'Text - означает, что нужно поместить в ячейку текст.
'Cells(1) - выделено может быть несколько ячеек в таблице одновременно,
'(1) - означает обработать первую ячейку в выделенном диапазоне.
'В нашем случае снова имеет место правило написания кода и не имеет смысла, т.к.
'ничего не выделено, и речь идёт об одной ячейке, где находится курсор.
'RowIndex - с помощью этой команды узнаём номер строки, в которой находится
'ячейка, где находится курсор.
'-1 - здесь математика, просто подгоняем под нужную цифру.
Selection.Tables(1).Cell(1, 1).Range.Text = Selection.Cells(1).RowIndex - 1
'Расставляем остальные числа.
'With
'End With - используется, чтобы меньше писать кода (чтобы было проще
'ориентироваться в тексте кода). И одновременно: чем меньше текста в коде,
'тем программа быстрее работает, т.к. компьютеру надо меньше читать текста.
'Например, можно так записать:
'Selection.Tables(1).Rows.Count
'Selection.Tables(1).Cells(i,1).Range.Text
'А можно то же самое вот так записать:
'With Selection.Tables(1)
    .Rows.Count
    .Cells(i, 1).Range.Text
'End With
With Selection.Tables(1)
    'For ... To ... Step ... Next - называется циклом и используется
    'для выполнения одного и того же действия заданное количество раз
    '(в нашем случае цикл повторяется столько раз, сколько
    'в таблице строк (кроме первой строки).
    '.Rows.Count - Rows относится к Tables(1). Count - означает
    'количество строк в таблице.
    For i = 2 To .Rows.Count Step 1
        '.Cell(i - 1, 1).Range.Text - это содержимое предыдущей ячейки (i - 1).
        'Val - берёт из предыдущей ячейки только число (в каждой ячейке
        'в Word всегда есть 2 непечатаемых символа (один из них виден,
        'когда включён режим отображения непечатаемых символов, а
        'второй вообще не виден). Следовательно Val - позволяет
        'взять только число без всяких ненужных элементов.
        .Cell(i, 1).Range.Text = Val(.Cell(i - 1, 1).Range.Text) - 1
        'Выше я писал, что приведу пример использовать переменной i.
        'Здесь и приведу. Если не использовать переменную i, то код
        'нужно было вот так записать:
        '.Cell(2, 1).Range.Text = Val(.Cell(2 - 1, 1).Range.Text) - 1
        '.Cell(3, 1).Range.Text = Val(.Cell(3 - 1, 1).Range.Text) - 1
        '.Cell(4, 1).Range.Text = Val(.Cell(4 - 1, 1).Range.Text) - 1
        'и так до последней строки таблицы. Т.е. получается очень много текста.
        'Но благодаря совместному использованию цикла
        'For ... To ... Step ... Next и переменной i - это заняло всего 3 строки.
    Next i 'Next увеличивает переменную i на число, указанное в Step.
End With
'MsgBox - используется для вывода на монитор сообщений.
'vbInformation - добавляет в диалоговое окно какой-то значок.
'Если удалите запятую и снова поставите, то появится выбор различных диалоговых окон.
MsgBox "Работа макроса завершена", vbInformation
End Sub

Sub P3()
'Обработка первой строки в таблице.
With Selection
    'Сначала выделяем строку, затем делаем с ней действия.
    .Tables(1).Rows(1).Select
    'Вертикальное выравнивание текста.
    .Tables(1).Rows(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter
    'Горизонтальное выравнивание текста.
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    'Шрифт жирным.
    .Font.Bold = True
    'Границы.
    .Rows.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt
End With
'Обработка первого столбца в таблице.
With Selection
    .Tables(1).Columns(1).Select
    .Tables(1).Columns(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    .Font.Bold = True
    .Rows.Borders(wdBorderRight).LineWidth = wdLineWidth150pt
End With
End Sub