VBA to copy from Excel document in My Documents to Excel Online document on SharePoint

[Jim74]

Hi,

I am trying to figure out how i can copy/paste cell values from a Excel document in My Documents to an Excel online Document on Share Point. I am not needing to CheckOut or CheckIn the workbook, just Edit in Browser option.

The following code i have works fine when copying from excel document in My Documents to excel documents located in my One Drive, so I am assuming its is because of it being an Online document? The error message is Subscript Out of Range

Private sub Commandbutton1_click()
Dim wb as workbook

set wb=Workbooks.Open("filename:=http://....paste doc.xlsx")

Windows("Donor Workbook.xlsm").Activate
With worksheets("Copy Sheet")
.Range("B9:B17").SpecialCells(xlCellTypeVisible).Copy
wb.Worksheets("Receive Here"). Cells(4,"B").PasteSpecial xlPasteValues      ' error here
End With
End sub

Any help would be appreciated. Thanks