i'm using the following macro to insert a row, copy formula from above then clear the values. yet when i place it on a row that has no values in cells (say A2 and B2) yet a formula in a cell (say A3) I get a 1004 error "no cells found".

any suggestions on how to prevent this from occurring?

Sub Copy_Formulas_Only()
    Dim row As Single
    row = ActiveCell.row
    Selection.EntireRow.Insert
    Rows(row - 1).Copy
    Rows(row).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas
    Selection.SpecialCells(xlCellTypeConstants).ClearContents
    Application.CutCopyMode = False
End Sub