in table2,Table3,Table4 delete the last data by vba

Nothing to do with Table1
what I want is in table2,Table3,Table4 delete the last data by vba
Kindly look the sample file
Sample001.xlsm
Avinash SinghAsked:
Who is Participating?
 
Roy CoxGroup Finance ManagerCommented:
They aren't Tables, i.e. formatted as Tables in the Home Tab of the Ribbon

Overview of Excel tables

If they were then something like this wouild do what you want.

I've formatted the first two ranges as Tables for you to test my code

Option Explicit

Sub DeleteLastRow()
    Dim oTbl As ListObject

    For Each oTbl In Sheet1.ListObjects
     
            oTbl.Range.Rows(oTbl.ListRows.Count).Delete
       
    Next oTbl
End Sub

Open in new window

Sample001.xlsm
0
 
Avinash SinghAuthor Commented:
Thnx Roy Cox Sir for giving ur precious time and for ur great efforts
0
 
Roy CoxGroup Finance ManagerCommented:
Pleased to heelp
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.