Hi All,

I have an Excel Document that is currently using VB to pull data and place it into a separate workbook. See Code Below

Sub CopynPasteWrkBk()

Dim InputFile As Workbook
Dim OutputFile As Workbook
Dim Inputpath As String
Dim Outputpath As String '

'## Open both workbooks first:
Set InputFile = ActiveWorkbook
Set OutputFile = Workbooks.Open("C:\Users\sogorman\Desktop\Test.xlsx")

'Now, copy what you want from InputFile:
InputFile.Sheets("Payroll Data").Activate
InputFile.Sheets("Payroll Data").Range("B36:K36").Copy

'Now, paste to OutputFile worksheet:
OutputFile.Sheets("Sheet1").Activate
OutputFile.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

'Close OutputFile:
OutputFile.Close savechanges:=True

MsgBox "Data Successfully Logged"
 
End Sub
This code works fine, but i was wondering would it be hard to modify this code to send that data straight to Access and cut out the middle process. I am not very familiar with access or the VB codes associated with it.

Any help be great