VBA to combine referenced rows into one sheet

According to the attachment a starter VBA demonstration to paste only to the Combined worksheet module :

PHP Code: 

Sub Demo1()
        UsedRange.Offset(1).ClearContents
        R& = 2
    For S& = Index + 1 To Worksheets.Count
        T& = Worksheets(S).[A1].CurrentRegion.Rows.Count - 1
     If T Then
        Rows(R).Resize(T, 16).Formula = "='" & Worksheets(S).Name & "'!A2"
        R = R + T
     End If
    Next
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄