Copy and Paste

D

Db1712

Is there a way to create a macro that copies a cell to the next empt
cell in a given column on a different sheet
 
R

Ron de Bruin

Try this to copy Sheets("sheet1").Range("A1") to Sheet2 in the A column

Sub test()
Sheets("sheet1").Range("A1").Copy _
Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub
 
Top