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

no need to copy the cell with the code above.

Kevin Beckham

-----Original 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 ON THIS LAST PROBLEM THEN ILL BE SO KIND AS TO
LEAVE U VERY
CLEVER PEOPLE ALONE, LOL

CHEERS

FROM CK


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

.