VBA to Table Rows

[happyhungarian]

Hi, I'm using this code to find the last 39 rows of a Table and delete them. It works but the only problem is that I would prefer it to delete ONLY the rows from the table; not the entire row from the worksheet. Any easy tweaks to help this?

Sub DeleteTasktoTable()
Dim LC As Long
Dim LR As Long




LC = Cells(2, Columns.Count).End(xlToLeft).Column
LR = Cells(Rows.Count, LC).End(xlUp).Row


Range(Cells(LR - 38, LC), Cells(LR, LC)).EntireRow.Delete Shift:=xlUp


End Sub

 

[DanteAmor]

Try this
Reference:https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables

Sub ResetTable()


    Dim tbl As ListObject
    
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    '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

 

[Akuini]

Maybe this:

Range(Cells(LR - 38, LC), Cells(LR, LC)).Delete Shift:=xlUp

 

[happyhungarian]

Thank you both! The simple removing of the .entirerow. actually did the trick!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.