Please don't type in caps

'Range("D16").Copy
You don't have to use the copy line if you use the value propertie

Thios will copy the value and insert a new row

Worksheets("Customer Details").Range("B18").Value = _
Range("D16").Value
Worksheets("Customer Details").Range("B18").EntireRow.Insert


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"cakonopka " wrote in message ...
HI THERE ALL

HERE IS WHER I AM AT THE MONENT

Private Sub CommandButton1_Click()
Range("D16").Copy
Worksheets("Customer Details").Range("B18").Value = _
Range("D16").Value

I HAVE A SERIES OF THESE FOR THE CELLS SO WHEN I PRESS THE BUTTON ALL
THE DATA GOES INTO THE TABLE

ALL I NEED IT TO DO NOW IS TO ADD A NEW ROW IN A T THE TOP AND MOVE THE
OTHER DATA DOWN SO THE NEXT DATA IS INSERTED INTO THE NEW ROW, ANY
IDEAS?
CHEERS

FROM CK


---
Message posted from http://www.ExcelForum.com/