Hi

I have two Workbooks which are called workbook 1 and 2. I want to append the data in this to workbook 3. The data that needs to be appended ignores the headers in the other tables and i just want workbook 1 data copied into workbook 3 and then workbook 2 data copied right underneath the data from workbook 1 in workbook 3.

Here's my code atm:

Sub Copy()

Dim fileDialog As fileDialog
Dim strPathFile_1 As String
Dim strPathFile_2 As String
Dim strFileName As String
Dim dialogTitle As String
Dim target_wbk As Workbook
Dim target_rows As Long
Dim source_rows_1 As Long
Dim source_rows_2 As Long

dialogTitle = "Navigate to and select required file."
Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
With fileDialog
.InitialFileName = "C:\Users\IsuruGaj\Downloads"
'.InitialFileName = ThisWorkbook.Path & "\" 'Alternative to previous line
.AllowMultiSelect = True
.Filters.Clear
.Title = dialogTitle
If .Show = False Then
MsgBox "File not selected to import. Process Terminated"
Exit Sub
End If
strPathFile_1 = .SelectedItems(1)
strPathFile_2 = .SelectedItems(2)
End With

Set source_wbk_1 = Workbooks.Open(Filename:=strPathFile_1)
Set source_wbk_2 = Workbooks.Open(Filename:=strPathFile_2)
Set target_wbk = ThisWorkbook

' Get amount of rows in input source and output target
target_rows = target_wbk.Sheets("Copy").UsedRange.Rows.Count
source_rows_1 = source_wbk_1.Sheets(1).UsedRange.Rows.Count - 2
source_rows_2 = source_wbk_2.Sheets(1).UsedRange.Rows.Count - 2
MsgBox "target: " & target_rows & "| source1: " & source_rows_1 & "| source2: " & source_rows_2

' ' Delete the previous data in the target workbook
target_wbk.Sheets("Copy").Range("A2" & ":K" & target_rows).Delete
'
' ' Copy all the data in the source workbook
source_wbk_1.Sheets(1).Range("A2" & ":K" & source_rows_1).Copy
source_wbk_2.Sheets(1).Range("A2" & ":K" & source_rows_2).Copy
' ' Paste all the data from the source workbook into the target workbook
target_wbk.Sheets("Copy").Range("A2" & ":K" & source_rows_1).PasteSpecial

source_wbk_1.Save
source_wbk_1.Close
source_wbk_2.Save
source_wbk_2.Close
MsgBox ("WO Import Complete")


End Sub

I've got my first workbook to copy to workbook 3 however I don't know how to append workbook 2 data right underneath the previous copied data from workbook 1.

I believe this line needs to be edited. target_wbk.Sheets("Copy").Range("A2" & ":K" & source_rows_1).PasteSpecial

Please help!!