Hi Paul,

This might give you a jump start it will take you to the next empty cell
after the last cell containing data in Column B.

Application.Goto Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp)(2)

Regards, Rocky McKinley
"Paul" wrote in message
...
Hi,

I'm looking for some help with what should be a really
simple problem but it's driving me nuts!

I've recorded a macro whereby certain text is copied on 1
worksheet and I want it to paste it to the next available
row in a different worksheet. Everything looks fine when
I record the macro by performing the actions but when I
run the macro the text is always pasted into the same row
(which was initially the next blank row)

If I check the script it is definitely showing the
command "Range("B888").Select
Selection.End(xlDown).Select" so it is performing.

Any help would be much appreciated

Paul