I need a VBA code that can do the following:

From my open workbook 'Service Provider'and active sheet,
Open into the background the closed workbook 'Service Provider History' located at "G:\Shared drives\Swan School Site Premises\PREMISES MANAGEMENT\SERVICE PROVIDERS\Service Providers History.xlsx".
Copy cells with data in column J from J5 downwards from the sheet in workbook 'Service Provider History, that has the same name as the active sheet in workbook 'Service Provider'
Open a new Note Pad sheet and paste each cell copied into a seprate line in Note Pad.
Close workbook 'Service Provider History'