this code copies only one line. I had to change .select to .copy to get it
to work. I added the .END to put the data in the first empty row and added a
..OFFSET so the last line of data was not over writen.

Private Sub CommandButton1_Click()
ActiveCell.Copy

Selection.End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, skipBlanks:=False, Transpose:=False

End Sub


"Heine" wrote:

Hello everybody

I want to create a paste special button. My VBA is not as strong,
though.

ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

I thought this little bit of code would do the trick. But it fails.

Any ideas?