Auto generating a table based on a single number...

[Michelle71]

I am looking to auto-generate a table containing a variable number of columns with each column containing the same values...

For example, if I have a single column with values:

System 1
40
40
60
80
120
160
40
40

And I enter the number of systems: Systems = 10...

Is there a way to create a table with ten columns containing the values above? Is there a way to increment the header to say "System 2," "System 3," etc.?

Thanks for your help.

 

[My Aswer Is This]

A lot of people use the term Table when actually they mean a sheet.

This script will look down column(A) of the active sheet and copy all the data so Column(A) values will now be copied to Columns(B) and Columns (C) and so on determined by the number you enter into the Inputbox

So if you enter 5 into the Inputbox columns A B C D and E will all have the same Data

Now if your actually referring to a Excel Table which is a Range on a Excel sheet then I would need to know the name of the Table

This script assumes you have Data in Column(A) of the active sheet.

Sub Insert_Table()
'Modified  6/20/2019  1:49:49 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim ans As Long
ans = InputBox("Enter How many systems")
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Cells(2, 1).Resize(Lastrow).Copy
Cells(2, 2).Resize(Lastrow, ans - 1).PasteSpecial xlValues
Application.CutCopyMode = False
For i = 1 To ans
    Cells(1, i).Value = "System " & i
Next
Application.ScreenUpdating = True
End Sub