Copy and Paste

[Db1712]

Thanks this actually worked with the exception that I should have bee
more specific. I need the value of the cell only, not the formatting

Sub test()
Sheets("Final Tally & Print Sheet").Range("G19").Copy _
Sheets("Year to Date").Range("H" & Rows.Count).End(xlUp).Offset(1
0)
End Sub


QUOTE=Ron de Bruin]Try this to copy Sheets("sheet1").Range("A1") t
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

 

[Ron de Bruin]

Try this

Sub test2()
Sheets("Year to Date").Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = _
Sheets("Final Tally & Print Sheet").Range("G19").Value
End Sub