在Excel VBA中的数据集末尾插入一行？

Question

Sub New_Row()
'
' New_Row Macro
'

'
    Rows("42:42").Select
    Selection.Copy
    Rows("46:46").Select
    Selection.Insert Shift:=xlDown
End Sub

所以我的代码将把单元格42和单元格42中的所有公式一起复制到单元格46中；我希望使它动态，因为它会查看最后一个单元格（H46），并且一旦用户在H46中输入内容，就会在其下方插入新行并复制公式？

我正在抓紧开始这个VBA字符串的工作...我希望它基本上复制上面的单元格并将行插入G46的底部。基本上复制上面带有公式的单元格，然后插入列。现在，此工作表还有其他部分，我仅将其应用于这一部分。用户将一些东西放到G46上突出显示的单元格中，一旦按回车，就会添加具有相同公式的新列。

任何提示帮助将不胜感激！ 这是屏幕截图：