Clear and resize a table

[drop05]

Hello i have a table called Tbl_JE on a sheet called JEP. I am trying to clear it and then resize it that way something can be copy and pasted into it again
I got code to clear it but when trying to do a resize i am getting errors. Trying to find the best way to do so

Sub cleardata()

    'Definf Sheet and table name
     With Sheets("JEP").ListObjects("Tbl_JEe")
        
        'Check If any data exists in the table
        If Not .DataBodyRange Is Nothing Then
            'Clear Content from the table
            .DataBodyRange.ClearContents
        End If
        
    End With

    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("Tbl_JE")
    tbl.Resize tbl.Range.CurrentRegion

 

[DanteAmor]

How about:

Sub ClearData()
  Dim tbl As ListObject

  Set tbl = Sheets("JEP").ListObjects("Tbl_JEe")
  'Delete all table rows except first row
  With tbl.DataBodyRange
    If .Rows.Count > 1 Then
      .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
    End If
  End With

  'Clear out data from first table row
  tbl.DataBodyRange.Rows(1).ClearContents
End Sub

Whatever you are going to paste, paste it in the first row of the table.

----- --