Кнопка добавляет строку и автоматически прорисовывает границы. Но если добавить в послед строке,то неправильно добавляет

Private Sub CommandButton9_Click()
ActiveSheet.Unprotect (159)
Application.Calculation = xlManual
Application.ScreenUpdating = False
With ActiveSheet
    If ActiveCell.Column > 3 And _
        ActiveCell.Row = Cells(ActiveCell.Row, "C").MergeArea(1).Row Then
            Dim FirstRow As Long: FirstRow = True
    End If
    .Rows(ActiveCell.Row & ":" & ActiveCell.Row + (ActiveCell.MergeArea.Rows.Count - 1)).Copy
    .Rows(ActiveCell.Row & ":" & ActiveCell.Row + (ActiveCell.MergeArea.Rows.Count - 1)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
    If FirstRow Then
        Application.DisplayAlerts = False
            Range(Cells(ActiveCell.Row, "C"), Cells(ActiveCell.Row + _
                Cells(ActiveCell.Row + 2, "C").MergeArea.Rows.Count + 1, "C")).Merge
            Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row + _
                Cells(ActiveCell.Row, "C").MergeArea.Rows.Count - 1, "B")).Merge
        Application.DisplayAlerts = True
        Range("C8").Interior.Color = xlNone
    End If
End With
  With Range(Cells(Cells(ActiveCell.Row, "C").MergeArea(1).Row, "A"), _
                Cells(ActiveCell.Row + Cells(ActiveCell.Row, "C").MergeArea.Count - 1, "H")).Borders
        .LineStyle = xlContinuous: .ColorIndex = 0: .TintAndShade = 0: .Weight = xlThin
    End With
Call CommandButton35_Click
ActiveSheet.Protect Password:=159, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                    AllowFormattingColumns:=True, AllowFormattingRows:=True
Application.ScreenUpdating = True
End Sub

Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

Private Sub CommandButton6_Click() 'переход на следующий месяц
  Dim i As Integer
  Dim s_nom_row As String
'------------------------
  Dim mVal As Integer
  Dim n As Long
  Dim c As Byte
  Dim s As String
  
  Application.ScreenUpdating = False
  Perenos = True 'Переменная устанавливается в True для отключения работы функций подсчета по цвету - ночные и праздничные
  ActiveSheet.Unprotect (159) 'снимается пароль
  Application.Calculation = xlManual 'Отключение автоматических перерасчетов
  Act_Sheets = ActiveSheet.Name
  next_month = Sheets(Act_Sheets).ComboBox1.Value
  Sheets("Справочник").Visible = True
  For i = 2 To 13
    If Worksheets("Справочник").Cells(i, 2).Value = next_month Then
      If Worksheets("Справочник").Cells(i, 1).Value = 1 Then
        MsgBox ("Лист этого месяца уже существует. Удалите его и перезапустите программу.")
        Exit Sub
      End If
    End If
  Next i
  Count_Sheets = Workbooks(grafic).Worksheets.Count
  Workbooks(grafic).Sheets(Act_Sheets).Select
  Workbooks(grafic).Sheets(Act_Sheets).Copy After:=Workbooks(grafic).Sheets(Count_Sheets)
  ActiveSheet.Name = next_month
  ActiveSheet.Range("J3").Select
  ActiveCell.FormulaR1C1 = "на " + next_month + " " + God
  Sheets("Справочник").Select
  For i = 2 To 13
    If Worksheets("Справочник").Cells(i, 2).Value = next_month Then
       Worksheets("Справочник").Cells(i, 1).Value = 1
       Sheets("Справочник").Visible = False
    End If
  Next i
  Sheets(next_month).Select
  'вставляется часть с рабочими и выходными днями
  For i = 8 To 600
    If Worksheets(next_month).Cells(i, 1).Value = "Защита" Then
      nom_row = i - 1 'номер строки, где заканчивается график, чтобы вставить рабочие дни соответствующего месяца
      Exit For
    End If
  Next i
  kol_row = nom_row
  Application.DisplayAlerts = False 'отключает подтвержедние на экране
  Workbooks.Open (ActiveWorkbook.Path + "\" + Mes)
  Workbooks(Mes).Sheets(next_month).Columns.EntireColumn.Hidden = False
  Workbooks(Mes).Sheets(next_month).Select
  Sheets(next_month).Copy Before:=Workbooks(grafic).Sheets(1)
  Windows(Mes).Activate
  ActiveWindow.Close
  Windows(grafic).Activate
  nom_row = nom_row - 4 'количество копируемых строк
  s_nom_row = "A1:AQ" + Format(nom_row)
  Sheets(next_month + " (2)").Select
  Sheets(next_month + " (2)").Range(s_nom_row).Select
  Selection.Copy
  Sheets(next_month).Select
  Sheets(next_month).Range("J5:J6").Select
  Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Sheets(next_month).Range("J5:J6").PasteSpecial
  Sheets(next_month).Range("J5").Select
  Sheets(next_month).Columns.EntireColumn.Hidden = False
  Worksheets(next_month + " (2)").Delete
  Application.DisplayAlerts = True 'включает подверждение на экране vgv
  Sheets(next_month).Select
  Sheets(next_month).Columns.EntireColumn.Hidden = False
  Count_Col = ActiveCell.MergeArea.Cells.Columns.Count
  ActiveWorkbook.ActiveSheet.Columns(11 + Count_Col).Hidden = True
  ActiveWorkbook.ActiveSheet.Columns(14 + Count_Col).Hidden = True
  ActiveWorkbook.ActiveSheet.Columns(15 + Count_Col).Hidden = True
  ActiveWorkbook.ActiveSheet.Columns(21 + Count_Col).Hidden = True
'-----------------------------------------------------------------
  mVal = 42
  Do While mVal >= 8
     If ActiveSheet.Cells(6, mVal).Value = "31" Or ActiveSheet.Cells(6, mVal).Value = "30" Or ActiveSheet.Cells(6, mVal).Value = "29" Or ActiveSheet.Cells(6, mVal).Value = "28" Then
        n = mVal
        Do
          c = ((n - 1) Mod 26)
          s = Chr(c + 65) & s
          n = (n - c) \ 26
        Loop While n > 0
        Exit Do
     End If
     mVal = mVal - 1
  Loop
  
  mVal = 0
  For i = 8 To ActiveSheet.UsedRange.Rows.Count
      If ActiveSheet.Range("C" & i).MergeArea.Rows.Count > 1 Then
         mVal = mVal + 1
      End If
  Next i
  ActiveSheet.Cells(8, 9).Select
  Selection.Copy
  ActiveSheet.Range("J8:" & s & mVal + 7).Select
  Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  ActiveSheet.Range("C8").Select
'-----------------------------------------------------------------
  Sheets(next_month).Protect Password:=159, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                             AllowFormattingColumns:=True, AllowFormattingRows:=True
  ActiveSheet.Calculate
  Perenos = False 'Переменная устанавливается в False для включения работы функций подсчета по цвету.
  Application.ScreenUpdating = True
End Sub

Sub Worksheet_Change(ByVal Target As Range)
if Target.Column = 5 And Target.Row <= LastRow And Target ="" Then
ActiveSheet.Calculate
end If
End Sub

Sub Worksheet_Change(ByVal Target As Range)
if Target.Column = 5 And Target.Row <= LastRow And Target ="" Then
ActiveSheet.Calculate
end If
End Sub