VBA - Copy values from a table in a worksheet to the last line of an existing sheet in another workbook

[glkennedy]

Hi All,

I have been able to find the following which works however instead of a worksheet in the same work book I'm wanting to copy the values the end of an existing worksheet in a different workbook.

What i have so far is....

Sub Approved()
Sheets("Timesheet 1st - 15th").Range("Timesheet").Copy
With Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With


End Sub

The other workbook and sheet are: "Timesheet All" (thats the file name) and the sheet within the workbook is "DOSB Timesheet)

thanks for your help.