Hi Iwayl,
Try this - if it doesn't work, I'll need to see sample spreadsheets:
Sub Iwayl(): Dim wt As Workbook, wa As Worksheet, ws As Worksheet
Dim d As Long, e As Long
Set wt = Workbooks("transfer"): wt.Activate: Set wa = ActiveSheet
Set ws = Workbooks("report").Worksheets("summary")
d = WorksheetFunction.MAX(2, ws.Range("D" & Rows.Count).End(xlUp) + 1)
e = WorksheetFunction.MAX(2, ws.Range("E" & Rows.Count).End(xlUp) + 1)
wa.Range("B2").Copy ws.Range("D" & d): wa.Range("C6").Copy ws.Range("E" & e)
End Sub
Bookmarks