Add blank cells

[Nerdalert314]

Good afternoon,

I am trying to create a Macro to add a blank cell in-between line. Every month when we do this there is no way to know how many lines we will have. Manually doing these I do the following:
Number the cells next to the date and auto fill all the way down. Copy the numbers. Paste them directly under the last number. Filter smallest to largest. I have included an example below that you can hopefully follow along with. Any suggestions would be great. Thank you!

SAMPLE 1		X # OF CELLS
SAMPLE 2
SAMPLE 3
SAMPLE 4
SAMPLE 5
SAMPLE 6
SAMPLE 7
SAMPLE 8
SAMPLE 9
SAMPLE 10
SAMPLE 1	1	# THE CELLS WITH AUTOFILL
SAMPLE 2	2
SAMPLE 3	3
SAMPLE 4	4
SAMPLE 5	5
SAMPLE 6	6
SAMPLE 7	7
SAMPLE 8	8
SAMPLE 9	9
SAMPLE 10	10
SAMPLE 1	1	Paste the # under the last #
SAMPLE 2	2
SAMPLE 3	3
SAMPLE 4	4
SAMPLE 5	5
SAMPLE 6	6
SAMPLE 7	7
SAMPLE 8	8
SAMPLE 9	9
SAMPLE 10	10
	1
	2
	3
	4
	5
	6
	7
	8
	9
	10
SAMPLE 1	1	Sort smallest to largest by column B
	1
SAMPLE 2	2
	2
SAMPLE 3	3
	3
SAMPLE 4	4
	4
SAMPLE 5	5
	5
SAMPLE 6	6
	6
SAMPLE 7	7
	7
SAMPLE 8	8
	8
SAMPLE 9	9
	9
SAMPLE 10	10
	10

<colgroup><col><col><col></colgroup><tbody>
</tbody>

 

[Fluff]

How about

Sub AddBlanks()
   Dim i As Long
   For i = Range("A" & Rows.count).End(xlUp).Row To 2 Step -1
      Rows(i).Insert
   Next i
End Sub

This assumes your data is in col A

 

[Nerdalert314]

Thank you so much!!!

 

[Fluff]

You're welcome