VBA to find last cell in column

Hi All,

New enough to this VBA, I am trying to copy the last row of data in column A and paste it to another workbook

I am currently using this bit of code

OutputFile.Sheets("Feb 2012").Activate
OutputFile.Sheets("Feb 2012").Range("A" & Rows.Count).End(xlUp).Offset(1).Copy

InputFile.Sheets("Customer Timesheet").Activate
InputFile.Sheets("Customer Timesheet").Range("F5").PasteSpecial Paste:=xlPasteValues

This code runs but I cant tell where it is referencing as it keeps returning blank, and the cell i want isn't blank. I have been messing with the Offset and xlUp and xlDown but to no avail.

Hope somebody can help me

Simon