Last Row in Listobject if Row is Empty

Hi there

I have the following code:

Dim listobj As ListObject
Dim lastrow As Integer


For Each listobj In ActiveSheet.ListObjects
    With listobj


        lastrow = .ListRows.Count
        If lastrow > 0 Then


            If Application.WorksheetFunction.CountA(.ListRows(lastrow)) = 0 Then
                .ListRows(lastrow).Delete
            End If
        End If
    End With
Next

It should loop through all the tables on the activesheet, and if the last row is blank, it should delete that row.

However I am getting a Error: "Unable to get CountA property of the worksheetfunction class"

Any ideas.

Ps. If the fisrt row and the last row are the same, then leave it would be the ideal.

Many thanks

Thanks RoyUk

Something so simple.

Is there a way to ignore it if the effectively the table has 1 row (and that row is blank)?

My apologies, you are right (of course).

Thanks so much for your help

However, is there a way to move the columns based on Row Headers. (I am happy to start a new thread I you require me to.

I have Headers (Name, House, PostCode). (In my test sample), but if I want to move PostCode to before House - therefore the Headers would be: Name, PostCode, House)

In my actual data I have 2 tables and 8 columns, and I would need to move 2 of the columns to a new location. within the table. In each case the Column Headers are the same in each table.

Thanks

Thank you, yes I wasn't 100% sure I was making sense.

In the attached, there is a Table, which I copy to another spreadsheet, but then I need to re sort the columns.

So I require Centre to come after sub, and Move description to after voucher No.

Thanks for your assistance.

Sorry. The file I sent was an unsaved version.