在特定文本后插入文本，并保留前一行的格式和论坛

Question

我是一个全新的代码，花了几个小时搜索和阅读，试图找到我想要的东西。我找到了这篇文章（Excel VBA - Insert row above specific text and copy formats and formula）  应该回答我的问题，但由于我缺乏知识，我无法让它完全适合我。我可以使第二个代码基于文本插入行，但我无法确定如何将公式从单元格J，O，Z和AE复制到新行。

这可以用一个代码完成吗？

这是宏：

Sub InsterRowCopyFormatForumula()

'     InsertRowCopyFormatFormula Macro '

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A6:B6").Select

Range("J5").Select

Selection.AutoFill Destination:=Range("J5:J6"), Type:=xlFillDefault

Range("J5:J6").Select

Range("O5").Select

Selection.AutoFill Destination:=Range("O5:O6"), Type:=xlFillDefault

Range("O5:O6").Select

Range("Z5").Select

Selection.AutoFill Destination:=Range("Z5:Z6"), Type:=xlFillDefault

Range("Z5:Z6").Select

Range("AE5").Select

Selection.AutoFill Destination:=Range("AE5:AE6"), Type:=xlFillDefault

Range("AE5:AE6").Select

End Sub