Copy And Paste Various Items To Three Different Sheets In Another Workbook

I have a workbook open, and want to copy and paste various items to three different sheets in another workbook.

When it comes to pasting the data however i am getting the error "Run-time error '13': Type Mismatch"

VB:
Sub BR_0153()
Dim Inv As Workbook, BR As Workbook
Dim RR As Worksheet, LH As Worksheet, IP As Worksheet
Dim LastRow As Long
Set Inv = ActiveWorkbook 'sets current workbook as Inv

[Code] .....