Combining 2 sheets of data with one Macro

[stroffso]

Hi,

I have to update two raw files each day and then combine them

One file has 1600 or so rows and the other has 250. Each day this increases. I usually copy and paste the raw files into the same workbook each day and then combine them. I was wondering is there some code that could combine them for me without any gaps in between?

Tab 1 is called SFC and tab 2 is called RPG.

I need to select all the data on each and then combine them on to a tab called Combo.

Thank you

 

[bhos123]

Sub Combine()
Dim Lastrow As Long
Dim Lastrow1 As Long
Dim Lastrow2 As Long
Application.ScreenUpdating = False

Sheets("SFC").Select
Lastrow1 = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Rows("2:" & Lastrow1).Copy
Sheets("Combo").Select
Lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Rows(Lastrow).Select
Selection.Insert Shift:=xlDown
Sheets("RPG").Select
Lastrow2 = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Rows("2:" & Lastrow2).Copy
Sheets("Combo").Select
Lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Rows(Lastrow).Select
Selection.Insert Shift:=xlDown
Application.ScreenUpdating = True
End Sub



The merging will happen eachtime you run this macro

 

[stroffso]

Thanks, that copies and pastes to one sheet but has a gap of 1489 rows between the 2 sets of data?

 

[stroffso]

Please disregard i see why this has happened now, All works fine, thanks so much

Thanks, that copies and pastes to one sheet but has a gap of 1489 rows between the 2 sets of data?

 

[bhos123]

you are welcome!