Combine data from multiple worksheets into master worksheet

---

In this blog post I will demonstrate how to combine data sets from multiple worksheets (of the same workbook) into a separate worksheet of that workbook. In other words, the goal is to combine the data set up to the point where a blank row is reached. We also want to exclude repeating headers.
​
Consider the data set below located in a tab named ST1 .

​The second tab of the workbook (i.e. Tab ST2) contains a data set with the exact same fields but different valuses.

​Note that in both tabs, the data begins from the fifth row and on that basis I have created the following code to combine the two tabs (i.e. ST1 and ST2) into a third tab named “Main”. 

​Sub Combine()
Dim S as Worksheet
For Each S In ActiveWorkbook.worksheets
If S.Name <> “Main” and S.Range (“A5”).Value <> “” Then
  S.Select
  LastRow=Range(“A10000”).End(xlUp).Row
  Range(“A5”, Cells(LastRow, “E”)).Copy
  Sheets(“Main”).Select
  Range(“A10000”).End(xlUp).Offset(1,0).Select
  ActiveSheet.Paste
 
Else
End If
Next S
 
End Sub

​Insert the code above in the “Module” and “This Workbook” sections in “Developer”>”Visual Basic” section of the ribbon

​Here is the output after the code is executed:

Important notes:

• In order for this code to work, the name of the tab data is combined needs to be “Main”. If the name of the tab is changed, the new name needs to be inputted in lines 4 and 8 of the code.


• Row 5 has been indicated as the first row where data is to be extracted from. This reference needs to be changed if the data  (excluding the header) starts from a different point. 

---