Question: I have an Excel sheet where I have different numbers in range A1 to A10. I need to take the value from the cell and add that many rows under that cell.

Lets say A1 as 3 as value and macro should add 2 rows below A1.

I have tried using "Rows" function but I couldn't find a way out.

Please help.

Answer: 
Alternate solution:

```
Sub tgr()

    Dim ws As Worksheet
    Dim i As Long

    Const sCol As String = "A"

    Set ws = ActiveWorkbook.ActiveSheet
    For i = ws.Cells(ws.Rows.Count, sCol).End(xlUp).Row - 1 To 1 Step -1
        With ws.Cells(i, sCol)
            If IsNumeric(.Value) Then
                If .Value - 1 > 0 Then .Offset(1).Resize(.Value - 1).EntireRow.Insert xlShiftDown
            End If
        End With
    Next i

End Sub

```
`Dim i, max, num As Integer
i = 1
max = 10
Do While i < max
 Range("A" & i).Select
 num = Selection.Value
 Dim x As Integer
 x = 0
 Do While x < num
 i = i + 1
 Range("A" & i).Select
 Selection.EntireRow.Insert
 max = max + 1
 x = x + 1
 Loop
 i = i + 1
Loop
End Sub`