Copy paste special change in macro

[Ricki]

I have a macro which I use to copy item from one workbook to another without copying any formulas.
The macro has been working without any problems until this morning. If I copy 1 row 1 column, to paste to another workbook, it does copy fine but then clears the row below of any information that's there.

Has there been a change in the way paste special works?

My macro is as follows:
On Error Resume Next
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Rhodie72]

I hope this helps:

Sub Special_change()
On Error GoTo errorhandler

    With ActiveSheet
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Format:="Text"
    End With
ErrrorHandler:
    MsgBox "Error encountered.", vbCritical + vbApplicationModal, "Copy paste special"
End Sub

 

[Ricki]

That's basically what I have. The code that I have, was made by recording my keystroke. Made by excel itself.

It copies fine but then deletes the row (cells) under where I'm pasting.

 

[Rhodie72]

Hmmm... that's odd. Do you specifically need it as text format? If not then erase that line of code.

Explain what you are doing excatly... I have 10 minutes to spare.

 

[Ricki]

What I'm doing is copying data from one workbook, to another, both formatted differently. The data is Text. Titles and Artists. Sometimes, the item which is being copy, is copied to a empty set of cells in between cells which have data. That's how I noticed this problem, just recently. Then I have to recreate the delete cells.

 

[Rhodie72]

If it is text you don't need that specified in the code.Post a sample of the source and destination sheets here and I'll have a look tomorrow.