Bom dia, como faco na macro abaixo para criar a linha acima, e nao abaixo da ultima linha preenchida, porem mantendo as formulas ?

Tenho as Linhas A4:K10 ja preenchidas , porem algumas colunas cotem formulas, a Macro abiaxo esta criando uma nova linha e jogando restante pra baixo, mas as formulas nao estao sendo copiadas, poderiam acrescentar o comando aqui:

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

Sub Cliente_Pendente()

 Application.ScreenUpdating = False
Dim Nome As String
Nome = Range("B1").Value

Sheets("Pendente").Activate
    Range("A4:K4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Sheets(Nome).Activate
    Range("AH16:AM16").Select
    Selection.Copy
    Sheets("Pendente").Activate
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
 Application.ScreenUpdating = True
    
End Sub