Getting run-time error 13 'type mismatch'

[mso3]

Hi friends,

I'm getting run-time error 13 'type mismatch'.
I want to insert 3 rows above the number 1 in column 'A' then the rest of the code actions.
How to adjust the border code to border each table?
The number of entries in each table are varies time to time.

Please suggest me the code amendment for these 2 problems. The required output is shown in the attached workbook 'Output' sheet.

Any help will be highly appreciated.
Thanking you in anticipation.

[StuCram]

This line causes a 'Subscript out of range' error because there is no sheet named "Data", only one named "Output"

Please Login or Register  to view this content.

This line seems to cause the mentioned error (Type Mismatch) because it tries to compare an entire column to just one value

Please Login or Register  to view this content.

Perhaps use a single cell name (maybe "A5") instead of "A:A".


Later on, there may be other errors also due to missing worksheets that are referenced, 'Support' for example.

[mso3]

Post deleted.