Excel макрос - копирование листа и перенос значений (создание связи начального остатка нового листа с конечным итогом предыдущего)

module1.bas

Attribute VB_Name = "Module1"

Private Sub RenameList_NextMonth()
   On Error GoTo Oops
   
   OldName = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count - 1).Name
   OldDate = CDate(OldName)
   NewDate = DateAdd("m", 1, OldDate)
   NewName = "" + MonthName(Month(NewDate)) + " " + Str(Year(NewDate))
   
   ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Name = NewName
   
Oops:
   Application.Dialogs(xlDialogWorkbookName).Show
End Sub

Sub Макрос1()
Attribute Макрос1.VB_Description = "копирование листа и перенос значений"
Attribute Макрос1.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Макрос1 Макрос
' копирование листа и перенос значений
'
    Dim старт As String
    Dim колво_строк As String
    Dim колонка_начала As String
    Dim колонка_итог As String
    Dim колонка_знч_нач As String
    Dim колонка_знч_кон As String
    
    колонка_начала = "A"
    колонка_итог = "G"
    колонка_знч_нач = "B"
    колонка_знч_кон = "F"
    старт = "1"

    'копируем лист
    ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
    
    'копируем итог
    ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count - 1).Select
    колво_строк = Trim(Str(Cells(Rows.Count, Range(колонка_итог + старт + ":" + колонка_итог + старт).Column).End(xlUp).Row))
    Range(колонка_итог + старт + ":" + колонка_итог + колво_строк).Select
    Selection.Copy
    
    'вставляем в начало
    ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Select
    Range(колонка_начала + старт + ":" + колонка_начала + колво_строк).Select
    ActiveSheet.Paste Link:=True
    
    'очистка значений
    Range(колонка_знч_нач + старт + ":" + колонка_знч_кон + колво_строк).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    
    RenameList_NextMonth
End Sub