HELP needed at insert a number of rows!

[alfa_eng]

Hi guys!

I have a problem! I have a cell with a number and I need to insert in a table that number of rows. If I have 5, I want to tell excel to introduce 5 rows, if I have 2 I want to tell excel to introduce 2. How can I do that with VBA and Excel? For example:

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD][/TD]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D
[/TD]
[TD]E
[/TD]
[TD]F
[/TD]
[TD]G
[/TD]
[TD]H
[/TD]
[TD]I
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]number of rows
[/TD]
[TD]5
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]number of the row
[/TD]
[TD]x
[/TD]
[TD]y
[/TD]
[TD]x,y
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD]1
[/TD]
[TD]0
[/TD]
[TD]4
[/TD]
[TD]0,4
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD]2
[/TD]
[TD]10
[/TD]
[TD]36
[/TD]
[TD]10,36
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD]3
[/TD]
[TD]19
[/TD]
[TD]74
[/TD]
[TD]19,74
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7
[/TD]
[TD]4
[/TD]
[TD]47
[/TD]
[TD]12
[/TD]
[TD]47,12
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8
[/TD]
[TD]5
[/TD]
[TD]35
[/TD]
[TD]69
[/TD]
[TD]35,69
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Can anyone help me??
Thank you!

 

[LloydFinancials]

Hi, See if this works.

Sub MyInsertRows1()
    
    Application.DisplayAlerts = False
    
    Dim i As Integer
    
    For i = 1 To Range("B1").Value
        Rows(4).Insert
    Next i
    
    Application.DisplayAlerts = True

End Sub

Luke