How to add the Rows and table automatically

ajmal_pottekattil_yoousuf 

Right-click the sheet tab and select 'View Code' from the context menu.

Change the Worksheet_Change event procedure to

Private Sub Worksheet_Change(ByVal Target As Range)
    Const MaxRows = 10
    Dim NumRows As Long
    If Not Intersect(Range("D2"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Range("C6:E" & MaxRows + 5).Clear
        NumRows = Val(Range("D2").Value)
        If NumRows < 1 Then Exit Sub
        If NumRows > MaxRows Then
            MsgBox "The maximum is " & MaxRows, vbExclamation
            Exit Sub
        End If
        Range("C6:E" & NumRows + 5).Borders.LineStyle = xlContinuous
        Range("E6:E" & NumRows + 5).Formula = "=D6-C6"
        Application.ScreenUpdating = True
    End If
End Sub