title: VBA for exel- Automatic make a new sheet with data from x multple sheets
body: <p>I m a newbie in VBA  and I would appreciate any help.</p>
  
  <p>I have the following   button in an excel workbook using VBA code</p>
  
  <pre><code>Sub New_sheet()
  Dim x As Integer
  
      x = InputBox("insert number of new sheets...")
  For numtimes = 1 To x
      'Loop by using x as the index number to make x number copies.
      'Replace "Sheet1" with the name of the sheet to be copied.
      ActiveWorkbook.Sheets("sheet (1)").Copy _
         After:=ActiveWorkbook.Sheets("sheet (1)")
  Next
  End Sub
  </code></pre>
  
  <p>which crates multiple(x) new Sheets depending on the project. I would like to extend this script and crate an extra sheet containig a table with the results of each sheet. The  results are given in the row A8,B8,C8,D8,E8 on every sheet. The table should have x+1 columns (x is the number of the new sheets) </p>