consolidate sheets

The following codes compile the worksheets stored in a folder into one workbook. All these worksheets have exactly the same format and column /row headings. i need help on
having another worksheet on the same workbook that consolidates the figures in the worksheet, as follows:

Private Sub compileinput_Click()
Dim FSO, Fld, Fil, TB As Workbook, MB As Workbook
Dim MainFolderName As String, ws As Worksheet
   Application.ScreenUpdating = False
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set MB = ActiveWorkbook
   MainFolderName = openinput1.Text
   Set Fld = FSO.GetFolder(MainFolderName)
   For Each Fil In Fld.Files
       If Fil.Type = "Microsoft Excel Worksheet" Then
           Set TB = Workbooks.Open(Fil.Path)
           For Each ws In TB.Worksheets
               If Left(ws.Name, 2) = "PH" And Right(ws.Name, 4) = "-PHP" Then
                   ws.Copy MB.Sheets(1)
               End If
           Next
           TB.Close False
       End If
   Next
   Unload Me
   
   Dim str As String
    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets
    str = UCase(ws.Name)
    If InStr(1, str, "-PHP") > 0 Then
        str = Replace(str, "-PHP", "")
        ws.Name = str
    End If
    Next ws
    On Error GoTo 0
   Application.ScreenUpdating = True
End Sub

each worksheet has the following format:

column A:      account numbers
column B to D:      set1, set2, set3, respectively

For example:

account numbers            set1            set2            set3
10001                  5            3            2
10002                  4            1            7            
10003                  3            7            8


lets say the worksheets that will in turn consolidate would be around 10 worksheets.  
First worksheet is named as sheet1 while the last worksheet is sheet10.


the consolidating worksheet would then have the following formula:

account numbers            set1                        set2            
10001                  =SUM(Sheet1:Sheet3!b2)            =SUM(Sheet1:Sheet3!c2)            
10002                  =SUM(Sheet1:Sheet3!b3)            =SUM(Sheet1:Sheet3!c3)                        
10003                  =SUM(Sheet1:Sheet3!b4)            =SUM(Sheet1:Sheet3!c4)            


...and so forth.


how do i then automatically create the consolidating worksheet?  thanks.