To work with variable tables throughout, the code should always reference lTbl. During development, I only partially did that (and lRow). The problem code line, originally coded as:
Set Rng = .Tables(2).Cell(3, 2).Range
should be coded as:
Set Rng = .Tables(lTbl).Cell(lRow, 2).Range
If you want to implement the same kind of row adding etc. in table 9b as I did for table 9a, you'll need to split the Nomenclature & lb data into separate columns, just as I did for table 9a. The problem isn't one of merged cells (you don't have any in those tables) but of simplifying the coding for the weights of the optional materiel. Indeed, my implementation of table 9a has merged cells where yours didn't (compare the first & second rows).
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|