Tecnico,

Tente este código:

Sub InsertRow()

    linha = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & linha, "XFD" & linha).Offset(1, 0).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A999999").Select
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.OnKey "{Tab}", "InsertRow"
    
End Sub

Abrss

Cara, o que vc viu não era programação (muito provavemente).

O Excel tem um recurso nativo para isso (que poucos utilizam) - trata-se de converter em tabela (na guia inicial, procure por "formatar como tabela").

Com isso, quando chegar ao fim de uma tabela, ao iniciar com dados na nova linha em branco, ela passa a fazer parte da tabela automaticamente, puxando as fórmulas, frmatações etc.