Add New Row with formulaes

Hello friends

I have a "Add new Row" button that adds a new row at the top of the sheet. My code is

Private Sub CommandButton1_Click()

Rows("14:14").Select
Selection.Insert Shift:=x1Down

End Sub

Although it adds a new row at the top, it does not add the formulaes in some of the cells - even the simple ones such as "=B16"

What do I have to do to get the formulaes as well in the new row ?

Thanks for your help.

Hello bengaluru,


Here is the macro. After the new row is added, the row above and all the rows must be updated using the Fill Down method.

Private Sub CommandButton1_Click()

    Rows(14).Insert Shift:=x1Down
    LastRow = Rows(14).CurrentRegion.Rows.Count

    Range(Rows(13), Rows(LastRow)).EntireRow.FillDown
    
End Sub