Help on Pasting Values

[2001jesper]

Hi All
Can anybody help me make my code paste values - have tried to PasteSpecial Paste:=xlPasteValues but cant seem to make it work

Sub CopyDataFromSheet()

Worksheets("Spend development on Categories").Activate

x = 52

Do While Cells(x, 1) <> ""

If Cells(x, 1) >= 1 Then
Worksheets("Spend development on Categories").Rows(x).Copy
Worksheets("Category-Change").Activate
Erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Category-Change").Rows(Erow)
End If
Worksheets("Spend development on Categories").Activate
x = x + 1
Loop

End Sub

Thx in advance

[ragulduy]

Sub CopyDataFromSheet()

Worksheets("Spend development on Categories").Activate

x = 52

Do While Cells(x, 1) <> ""

If Cells(x, 1) >= 1 Then
Worksheets("Spend development on Categories").Rows(x).Copy
Worksheets("Category-Change").Activate
Erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Worksheets("Category-Change").Rows(Erow).PasteSpecial xlValues
End If
Worksheets("Spend development on Categories").Activate
x = x + 1
Loop

End Sub

[2001jesper]

Thank you so much, it worked perfectly!