insert rows automatically

[sbrown64]

HiI have created a table & in column B I enter a number (i.e 3) is there a way to automatically add 2 rows below the line, so if the number was 5, it would add 4 rows below?RegardsStephen​

 

[sbrown64]

Hi
someone just supplied this code to me and it worked, so i say thank you to all of your help.

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 9/14/2019 12:55:21 PM
Dim lst As ListObject
Dim lastRR As Range
Dim lngRR As Long
On Error GoTo Err_Worksheet_Change
Set lst = Me.ListObjects("Table2")
Set lastRR = lst.Range(lst.ListRows.Count + 1, 2)
If Target.Count = 1 And Not IsEmpty(Target) Then
Application.EnableEvents = False
If CLng(Target) > 0 Then
lngRR = CLng(Target) - 1
End If
If Not Intersect(Target, lastRR) Is Nothing Then
lst.Resize Me.Range(lst.Range.Resize(lst.Range.Rows.Count + lngRR).Address)
End If
End If
Exit_Worksheet_Change:
Application.EnableEvents = True
Exit Sub
Err_Worksheet_Change:
MsgBox Err.Description
Resume Exit_Worksheet_Change
End Sub

Regards
Stephen
[/FONT]