VBA - добавление нескольких строк одной кнопкой

Question

Уважаемое сообщество Stackoverflow, я хотел бы добавить несколько строк, которые отображают значения из ячеек на других листах с помощью одной CommandButton. У меня есть код для добавления одной строки, но я не знаю, как расширить его, чтобы добавить сразу несколько строк.

Небольшая дополнительная информация: документ Excel - это служебная книга. Я хочу добавить 14 строк по 8 столбцов для разных категорий расходов (строка 1: суммарные значения за год, строка 2-13: индивидуальные значения за 12 месяцев, строка 14: пустая строка). Все значения для строк 1-13 находятся на отдельном листе для соответствующего года.

Вот мой код для добавления одной строки (на немецком языке, извините !, в настоящий момент показаны сводные значения за соответствующий год :

Private Sub CommandButton1_Click()
i = 1
Zeile = Worksheets("Übersicht").Range("A4:A5000").End(xlDown).Row
Zeile = Zeile + 1
Jahr = InputBox("Neues Jahr eingeben (zB: 2017)", "Neues Jahr")

Sheets("Vorlage").Copy After:=Sheets(1)
Sheets("Vorlage (2)").Name = Jahr
Sheets("Übersicht").Select

For i = 1 To 5
     If i = 1 Then
     Range(Cells(Zeile, 1), Cells(Zeile, 2)).Select
     GoTo Weiter
     End If
     If i = 2 Then
     Range(Cells(Zeile, 3), Cells(Zeile, 4)).Select
     GoTo Weiter
     End If
     If i = 3 Then
     Range(Cells(Zeile, 5), Cells(Zeile, 6)).Select
     GoTo Weiter
     End If
     If i = 4 Then
     Range(Cells(Zeile, 6), Cells(Zeile, 7)).Select
     GoTo Weiter
     End If
     If i = 5 Then
     Range(Cells(Zeile, 7), Cells(Zeile, 8)).Select
     GoTo Weiter
     End If

Next i
Cells(Zeile, 1).Hyperlinks.Add Anchor:=Cells(Zeile, 1), Address:="", SubAddress:= _
        "'" & Jahr & "'!A1", TextToDisplay:=Jahr
Cells(Zeile, 1).Font.ColorIndex = xlAutomatic
Cells(Zeile, 2) = ""
Cells(Zeile, 3).Formula = "='" & Jahr & "'!A6"
Cells(Zeile, 4).Formula = "='" & Jahr & "'!B6"
Cells(Zeile, 5).Formula = "='" & Jahr & "'!C6"
Cells(Zeile, 6).Formula = "='" & Jahr & "'!D6"
Cells(Zeile, 7).Formula = "='" & Jahr & "'!E6"
Cells(Zeile, 8).Formula = "='" & Jahr & "'!F6"
End Sub

Заранее спасибо, Селина