Merge data on different sheets

**johnnylzep** · 12-04-2012, 06:20 AM

Hi everyone,
I want to bring all the data from specific different sheets in a single new sheet. The data is in the same format as shown in the attached file.
However, I need only the data from the two first sheets to be merged and every time that these data change, an updated "merge sheet" to appear.

**arlu1201** · 12-04-2012, 07:19 AM

Try this code - Ensure that you remove the ending space in the sheetname "1st & 3rd Saturday".

Option Explicit

Sub update_sheets()
Dim mysheet As Variant
Dim lrow As Long

Application.ScreenUpdating = False

If Evaluate("ISREF(Summary!A1)") Then
    Worksheets("Summary").Delete
End If

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Summary"
Worksheets("Summary").Range("A1:E1").Value = Split("Site, Origin,Destination, Period, OW/RT", ",")

For Each mysheet In Array("1st & 3rd Saturday", "2nd & 4th Saturday")
    With Sheets(mysheet)
        lrow = .Range("A" & .Rows.Count).End(xlUp).Row
        If lrow > 2 Then .Range("A2:E" & lrow).Copy Worksheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End With
Next mysheet

MsgBox "Summary updated"

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button