Exceltips.nl

Row 1 has headers for all sheets, and is therefore not included.
This macro clears the summary sheet, and then pastes the data from the two source sheets underneath eachother.

Sub Refresh()
    Sheets("Summary").Select
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    
    Sheets("Source 1").Select
    
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Sheets("Summary").Select
    LastRow = ActiveSheet.UsedRange.Rows.Count + 1
        
    Rows(LastRow).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("Source 2").Select

    Range("A2").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Sheets("Summary").Select
    LastRow = ActiveSheet.UsedRange.Rows.Count + 1
    
    Rows(LastRow).Select
    
    Selection.PasteSpecial Paste:=xlPasteValues
        
End Sub