Вставьте новую строку и скопируйте формулы из строки выше во вновь добавленном месте строки

Question

всякий раз, когда я вставляю новую строку вручную, мне нужно скопировать формулы из вышеупомянутой строки вставленной строки. Я попытался с помощью приведенного ниже кода, но не знаю, всплывает ошибка. Например:

E5 = Лист2! a1

E6 = Лист2! b1

E7 = Лист2! c1

и когда я вставляю новую строку он должен показывать

E8 = Sheet2! d1

, но когда мы делаем это вручную на листе, перетаскивая строку вниз, это показывает, что столбцы остаются такими же, а изменения строки E5 = Лист2! A1

E6 = Лист2! A2

E7 = Лист2! A3

Private Sub Worksheet_Change(ByVal Target As Range,RowsCount As Long,ws as worksheet)
    On Error GoTo EH
    ' Detect whole row changed
    If Target.Columns.Count = ws.Columns.Count Then
        ' Detect Extra Row
        If RowsCount = ws.UsedRange.Rows.Count - 1 Then
            ' Copy Formulas and Format new row
            Application.EnableEvents = False
            If Target.Row > 1 Then
                Target.Offset(-1, 0).Copy
                Target.PasteSpecial xlPasteFormulas, xlPasteSpecialOperationNone, False, False
                Target.PasteSpecial xlPasteFormats, xlPasteSpecialOperationNone, False, False
                Application.CutCopyMode = False
            End If
        End If
        RowsCount = ws.UsedRange.Rows.Count
    End If

EH:
    Application.EnableEvents = True
End Sub

End Sub