Thanks mate.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Frank Kabel" wrote in message
...
Hi Bob
small typo :-)
.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Do you mean

With Cells(Rows.Count, "A").End(xlUp)
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteForamts
.Offset(1,1).Select
End With


"ADRIAN" wrote in message
...
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.