Adding a new Line

[cakonopka]

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 AL
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 TH
OTHER DATA DOWN SO THE NEXT DATA IS INSERTED INTO THE NEW ROW, AN
IDEAS?
CHEERS

FROM C

 

[Ron de Bruin]

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

 

[Don Guillett]

It's unclear, at least to me, where you want the row inserted???
The basic idea is
ActiveCell.Rows.Insert
or
Worksheets("Customer Details").Range("B18").rows.insert



Please don't SHOUT. Considered bad netiquette
Private Sub CommandButton1_Click()
' Range("D16").Copy 'NOT needed
ActiveCell.Rows.Insert
Worksheets("Customer Details").Range("B18").Value = _
Range("D16").Value