vb script equalizing width of rows

I have tables that are 6 columns in most rows and 1 merged column in other rows
I am deleting the 6th column if it exists.
Then, I want the one merged column row to be the same width.
The following code errs saying trw.width is not a valid property

How do I fix this code...

                        dim tblwidth
                        if tbl.Columns.count > 5 and then
                              for each trw in tbl.rows
                                    if trw.cells.count > 5 then
                                          trw.cells(6).Delete   'this works
                                          tblwidth = trw.width       'this fails
                                          
                                    end if
                                    
                                    if trw.cells.count = 1 then
                                    
                                          trw.width = tblwidth  'this will make the merged column row same width as the rows above that were trimmed down to 5 columns.
                                          
                                    end if
                              next
                              
                        end if