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

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Row <= lastrow And Cells(Target.Row, Target.Column) = "" Then
ActiveSheet.Calculate
End If
End Sub