Macro to create a list length n

[TestableEmu263]

I would appreciate some help with this problem: I want to be able to make a table of n entries long where n is the length based on some cell value. Example. If I want a list of 60 items, I want to be able to type 60 in one cell and then it generate a table 60xm (where m is a predetermine value that stays constant.

 

[johnnyL]

Not really sure what you are after. Is it something like the following?

Book1
	A	B	C	D	E	F	G	H	I	J
1	1	*	2	=	2		table length	Operator	m value
2	2	*	2	=	4		60	*	2
3	3	*	2	=	6
4	4	*	2	=	8
5	5	*	2	=	10
6	6	*	2	=	12
7	7	*	2	=	14
8	8	*	2	=	16
9	9	*	2	=	18
10	10	*	2	=	20
11	11	*	2	=	22
12	12	*	2	=	24
13	13	*	2	=	26
14	14	*	2	=	28
15	15	*	2	=	30
16	16	*	2	=	32
17	17	*	2	=	34
18	18	*	2	=	36
19	19	*	2	=	38
20	20	*	2	=	40
21	21	*	2	=	42
22	22	*	2	=	44
23	23	*	2	=	46
24	24	*	2	=	48
25	25	*	2	=	50
26	26	*	2	=	52
27	27	*	2	=	54
28	28	*	2	=	56
29	29	*	2	=	58
30	30	*	2	=	60
31	31	*	2	=	62
32	32	*	2	=	64
33	33	*	2	=	66
34	34	*	2	=	68
35	35	*	2	=	70
36	36	*	2	=	72
37	37	*	2	=	74
38	38	*	2	=	76
39	39	*	2	=	78
40	40	*	2	=	80
41	41	*	2	=	82
42	42	*	2	=	84
43	43	*	2	=	86
44	44	*	2	=	88
45	45	*	2	=	90
46	46	*	2	=	92
47	47	*	2	=	94
48	48	*	2	=	96
49	49	*	2	=	98
50	50	*	2	=	100
51	51	*	2	=	102
52	52	*	2	=	104
53	53	*	2	=	106
54	54	*	2	=	108
55	55	*	2	=	110
56	56	*	2	=	112
57	57	*	2	=	114
58	58	*	2	=	116
59	59	*	2	=	118
60	60	*	2	=	120
61
Sheet1

If Yes then you could use code something like the following:

Sub Test()
'
    Dim mValue          As Double
    Dim TableRow        As Long
    Dim TableRows       As Long
    Dim Operator        As String
'
    TableRows = Range("G2").Value2
    Operator = Range("H2").Value2
    mValue = Range("I2").Value2
'
    ReDim ResultArray(1 To TableRows, 1 To 5) As Variant
'
    For TableRow = 1 To UBound(ResultArray, 1)
        ResultArray(TableRow, 1) = TableRow
        ResultArray(TableRow, 2) = Operator
        ResultArray(TableRow, 3) = mValue
        ResultArray(TableRow, 4) = "="
'
        Select Case Operator
            Case "*": ResultArray(TableRow, 5) = TableRow * mValue
            Case "/": ResultArray(TableRow, 5) = TableRow / mValue
            Case "+": ResultArray(TableRow, 5) = TableRow + mValue
            Case "-": ResultArray(TableRow, 5) = TableRow - mValue
        End Select
    Next
'
    Range("A1").Resize(UBound(ResultArray, 1), UBound(ResultArray, 2)) = ResultArray
'
    With Columns("A:E")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End Sub

 

[bebo021999]

If you want to create a new table, start from cell A1, with 60 rows (in cell G1 = 60) and 4 columns (m=4, for instant)

Option Explicit
Sub creatTable()
Dim m&, myTable As ListObject
m = 4 ' assum m =4
'Assum table start from cell A1
Set myTable = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1", Cells(Range("G1").Value, m)), , xlYes)
End Sub