Hi Bob


sounds good, but i cant work out where that will fit into the current script?


apologies, can you help again?

existing code looks like this:

Range("E1").Select
Selection.Copy
Range("B1").Select
Selection.End(xlDown).Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


Any help gratefully received


cheers


jb

"Bob Phillips" wrote:

Activecell.copy activecell.offset(0,1).end(xldown)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JB2010" wrote in message
...
Hi

I am trying to get a macro to copy data from one cell & paste it onto the
bottom of a list, however my current attempt just keeps overwriting one
cell
as my current programming seems to have selected an actual cell reference.
I
recorded the macro of me copying, then higlighting the cell at the top of
the
listing column, hitting CTRL+DOWN CURSOR then down cursor again before
pasting. I thought this would leave the code to always drop to the bottom
of
the list & then go one cell further, but this appears not to be the case!

Does anyone know a better (i.e. functioning!) way to program this?

Many thanks in advance, if you need any more info please reply.

cheers

jb