VBA to append multiple columns to last column across multiple worksheets

HansVogelaar 

Hi Hans - please find attached a sample Workbook with a series of Worksheets with some data in it (gathered from a publicly-available dataset with no PII info., so no worries on privacy concerns).

I have 3 Worksheets:  'main diagnosis', 'secondary diagnosis', and 'procedures'.  Each Worksheet has a couple columns of data, and the number of columns varies from sheet to sheet.  What I want to do is to add the same four columns to the end of each dataset found on the individual Worksheets based on values from the Lookup Table found on the 'Lookup_Tbl' Worksheet in the attached Workbook.

The end result can be seen in the 'expanded' Worksheet tabs, where these 4 columns would be added to the last column of each dataset on each Worksheet, and then the values from the Lookup Table copied down to each row on that Worksheet.  For example, the 'main diagnosis' Worksheet has the original columns provided from the data extract.  Right next to it is a Worksheet called 'main diagnosis exp' which shows the original columns + the 4 columns from the Lookup Table (highlighted in yellow), populated with the data values from the Lookup Table copied down for each record.  The 'expanded' Worksheet tabs are there for illustration purposes only - I'm looking simply to append the 4 columns onto the existing Worksheets, not create additional Worksheets.  Again, the Lookup Table is my workaround the fact that the extract data does not contain these data elements and I thought this would be the easiest way to append these values to the existing dataset.

I hope this makes my request clearer - don't hesitate with any questions you may have.  Thank you - I do appreciate it!