how to get the data range of a table except the last 3 rows

[luolovepi]

Hello,
I want to get the data range of a table except the last three rows in the table. I know the code to choose the data range of the table is :

ActiveSheet.ListObjects("Table1").DataBodyRange

But how could I minus the last 3 rows?

Thank you!

Best regards,
lolo

 

[luolovepi]

Hi Sektor, I changed my code and solved the problem.
Thank you! I'm so careless~~~

Best regards,
lolo

You get 0 by red color.

With Pr.ListObjects("Table1")
        Set PrPartNumberRange = .ListColumns(4).DataBodyRange
        Set tableContentRange = PrPartNumberRange.Offset(1, 0). _
                                Resize(PrPartNumberRange.Rows.count - 4, _
                                [B][COLOR=red]PrPartNumberRange.Columns.count - 1[/COLOR][/B]). _
                                SpecialCells(xlCellTypeVisible)
    End With