ABOUT ADVANCE TABLE FUNCTIUON

PRASHANT1497 -

This seems to work:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim tbl As ListObject
    Dim rowNum As Range
    Set tbl = ActiveSheet.ListObjects("tblDynamic")
    Set rowNum = Range("B3")
            
    Application.ScreenUpdating = False
    
    If Not Intersect(Target, Range("B3")) Is Nothing Then
        With tbl
            For i = .ListRows.Count To 1 Step -1
                .ListRows(i).Delete
            Next i
        End With
        Set rng = Range("tblDynamic[#All]").Resize(tbl.Range.Rows.Count + (rowNum - 1), tbl.Range.Columns.Count)
        tbl.Resize rng
    End If
    
    Application.ScreenUpdating = True
End Sub