Help with a macro to clear cells with numbers but not cells with formulas

[Antonia500]

Hi- help would be greatly appreciated on a macro to clear cells with numbers but no cells with formulas with in this macro:
Dim i As Long
i = Range("E3")
If i > 0 Then
' Copy range
Range(Cells(6, 10 + i), Cells(500, 17)).Copy
Range(Cells(6, 10), Cells(500, 17)).Select
' Paste special
ActiveSheet.PasteSpecial Format:=2, Link:=1, _
DisplayAsIcon:=False, IconFileName:=False
' Clear i columns on the right
Range(Cells(6, 18 - i), Cells(500, 17)).ClearContents
End If
End Sub

the range is where the cells with numbers need to be cleared but not the ones with formulas.

Thanks in advance for any help.

 

[asking]

Hi Antonia500,
Always save your workbook before trying any suggestions, then if something goes wrong you can revert back.

Try ~
When you have selected the range where the cells with numbers need to be cleared but not the
ones with formulas, add this line of code ~

Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents

Cheers

 

[Antonia500]

It works! Thanks very much for your help.