我是一个全新的代码，花了几个小时搜索和阅读，试图找到我想要的东西。我找到了这篇文章（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