Hi,

Im wondering If anyone can help, im new to VBA but would like to be able to send a range of data from one workbook to the next blank line on another workbook that is open.

Ive been using code for to transfer between sheets in the same workbook without any issues, but would like to expand this to do the same action but to a different workbook in the same folder. This would be sent automatically at set time slots throughout the day and not done through a manual task.

If possible I would like to be able take the full range on the origin workbook (excluding the first row as it contains headings) and then once the information is transferred I would like the original sheet to be cleared ready to be used again.

Any help would be greatly appreciated.

This is what I have used so far -

```
Sub Transfer()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim TargetWB As Workbook
Dim DestRow As Long
Set ws1 = ActiveSheet
Set ws2 = Sheets("Summary")
DestRow = ws2.Cells(Rows.Count, "B").End(xlUp).Row + 1
ws1.Range("B3").Copy ws2.Range("A" & DestRow)
ws1.Range("B4").Copy ws2.Range("B" & DestRow)
ws1.Range("B5").Copy ws2.Range("C" & DestRow)
ws1.Range("B6").Copy ws2.Range("D" & DestRow)
ws1.Range("B7").Copy ws2.Range("E" & DestRow)
ws1.Range("B8").Copy ws2.Range("F" & DestRow)
ws1.Range("B9").Copy ws2.Range("G" & DestRow)
ws1.Range("B10").Copy ws2.Range("H" & DestRow)
ws1.Range("B11").Copy
ws2.Range("I" & DestRow).PasteSpecial xlPasteValues
ws1.Range("B3").ClearContents
ws1.Range("B4").ClearContents
ws1.Range("B5").ClearContents
ws1.Range("B6").ClearContents
ws1.Range("B7").ClearContents
ws1.Range("B8").ClearContents
ws1.Range("B9").ClearContents
ws1.Range("B10").ClearContents
End Sub
```

Display More