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

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