Split Single Row into Multiple Rows

Hello All,

New User here, and very glad that I found this forum.

I'm working on a datasheet that contains a large amount of data about people. (It is unfortunately confidential data so Columns A - Column M were deleted).

Currently, I have one row dedicated per person. Columns A - Column M and Column BB are basic demographic data, and the rest of the Columns are events related to time: ED1, ED1_Time, ED2, ED2_Time, and so forth. I want to convert the data so that it shows multiple rows per person, but that a new ED event and corresponding EDTime has a new row.

For example:
TRNUMBEREXAMPLE, MR#, ACCT#, AGE, ...., INJTYPE_AS, ED1, ED1TIME
TRNUMBEREXAMPLE, MR#, ACCT#, AGE, ...., INJTYPE_AS, ED2, ED2TIME
TRNUMBEREXAMPLE, MR#, ACCT#, AGE, ...., INJTYPE_AS, ED3, ED3TIME
TRNUMBEREXAMPLE2, MR#, ACCT#, AGE, ...., INJTYPE_AS, ED1, ED1TIME
TRNUMBEREXAMPLE2, MR#, ACCT#, AGE, ...., INJTYPE_AS, ED2, ED2TIME

I found a similar thread that someone was nice enough to post a solution and macrocode for
http://excelforum.com/excel-general/...iple-rows.html

However, when I tried to adapt the code, it did not work. I have no experience with macros, and only limited coding experience, and I was unable to modify the code to adapt my code.

I have attached the spreadsheet that I am working with in .xls and .xlsx formats.

Thanks for the help in advance. Any help is appreciated!

It worked! The original macro code from your first code worked on our full data set.

Thank you very much!