Insert Rows And Copy Formula Cells

I am trying to finish off a form that allows a user to insert a row below the selected cell and copy the formula from the line above if one exists. The code inserts the line but does not copy the formulas if they exist.


Application. ScreenUpdating = False

Dim cRow
Dim j As Long

cRow = ActiveCell.Row

With ActiveCell
.EntireRow.Insert
End With

For j = 1 To Cells(1, 255).End(xlToLeft).Column
If Cells(cRow, j).HasFormula Then Cells(cRow, j).Copy Cells(cRow + 1, j)
Next j