New Row Macro with Formula

[thebestnicknar]

I'm trying to cleanup a colleagues spreadsheet and create a New Row button, but also want to keep the formulas in the required fields above. The below formula creates the new row with formatting from above, but does not copy the formulas. Do I have to embed the formulas into my macro or is there a way to pull it from above?

There are formulas in I10, M10, N10, O10 and T10 which need to copied.

Private Sub CommandButton1_Click()
Dim mySheets    
Dim i As Long        
mySheets = Array("Priority Evaluation")
For i = LBound(mySheets) To UBound(mySheets)
 With Sheets(mySheets(i))
.Range("A11").EntireRow.Insert Shift:=xlDown           
.Range("A11:V11").Borders.Weight = xlThin
End With
Next i
End Sub

 

[Fluff]

Try

.Range("A11").EntireRow.Insert shift:=xlDown
Intersect(.Range("I10:T11"), .Range("I:I,M:O,T:T")).FillDown
.Range("A11:V11").Borders.Weight = xlThin

 

[thebestnicknar]

Thank you, worked perfectly.

 

[Fluff]

Glad to help & thanks for the feedback