Copy/paste button code work wrong

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