How to Insert Numbers Using Macros in Excel

We get to learn to use a loop as well to do this!

Make sure your Excel has the Developer Tab enabled following this tutorial.

I explain how you can do this below step by step!

What does it do?

Asks for a max number, then generates numbers from 1 to the max number

Copy Source Code:

</p>
<p>Sub InsertNumbers()</p>
<p>Dim maxNumber As Integer<br />
Dim counter As Integer</p>
<p>On Error GoTo Last<br />
maxNumber = InputBox(&amp;amp;quot;Enter the Max Value&amp;amp;quot;, &amp;amp;quot;Generate 1 to n&amp;amp;quot;)<br />
'Generate all the numbers<br />
For counter = 1 To maxNumber<br />
ActiveCell.Value = counter<br />
'Move one cell below<br />
ActiveCell.Offset(1, 0).Activate<br />
Next counter<br />
Last: Exit Sub<br />
End Sub</p>
<p>

Final Result: 

Exercise Workbook:

Download excel workbookHow-to-Insert-Numbers.xlsm

STEP 1: Go to Developer > Code > Visual Basic

STEP 2: Make sure Sheet1 is selected, paste in your code and Select Save. Close the window afterwards.

STEP 3: Let us test it out!

Select any cell that you want to insert numbers on. Go to Developer > Code > Macros

Make sure your macro is selected. Click Run.

We want to insert 10 numbers. Type in 10.

With that, you are now able to insert consecutive numbers using macros!

How to Insert Numbers Using Macros in Excel

Bryan

Bryan Hong is an IT Software Developer for more than 10 years and has the following certifications: Microsoft Certified Professional Developer (MCPD): Web Developer, Microsoft Certified Technology Specialist (MCTS): Windows Applications, Microsoft Certified Systems Engineer (MCSE) and Microsoft Certified Systems Administrator (MCSA).

He is also an Amazon #1 bestselling author of 4 Microsoft Excel books and a teacher of Microsoft Excel & Office at the MyExecelOnline Academy Online Course.