displaying last number in a column

I was wondering how to display whatever the last value happens to be in a column into another cell in the sheet. Thanks for any help.

This code will transfer the last cell in column A (column 1) of Sheet1 to cell A1 on Sheet2.

Sub LastNumber()

Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)

End Sub

Hope this can be re-arranged to suit your needs

Cheers!