Copy/paste button code work wrong

Hello,

I would like to ask some1 for help.
As you can see in the attached file I made a button to copy values from E column to A. But i need to make some changes to not copy the N/A values. I am inserting numbers to the column A (from 50-100) and i need edit them by the small formula in E column. I made the button because is necessary copy them several times, but i need make the code to recognize if there is a number or N/A so it will paste only the numbers and keep other cells blank. So the chart wont get deformed by the zeros... .

Try this one

Private Sub CommandButton1_Click()
  With ActiveSheet
    .Range("E1:E100").Copy
    .Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    .Columns(1).Replace "#NAME?", ""
    .Columns(1).SpecialCells(4).EntireRow.Delete
  End With
End Sub

Well it is not work how i meant. This macro you made delete all rows below 50 also the formulas i had predefined.

Originally Posted by Debraj Roy

Try this

Private Sub CommandButton1_Click()
    Range("E1:E100").SpecialCells(xlCellTypeFormulas, 7).Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
End Sub

Thanks Debraj it is working exactly how i meant :D