I need help on vba code

[Mj_2012]

Hi,

I need some help to determine the best approach on how I can use vba to easily copy and transpose all information. Please see below sample

This is how it is in excel - the original file

Room Number   AA-123    AB-122   AC-133     AD-145    BE-100     BE-101

1213                    2              2             1              1               1               1

1530                    1              2             1              2               1                1            

Transpose into excel with these result

1213    AA-123    2

1213   AB-122     2

1213   AC-133     1

1213   AD-145     1

1213   BE-100       1

 1213  BE-101       1

1530  AA-123       1

1530  AB-122        2

1530  AC-133       1

1530   AD-145      1

1530   BE-100       1

1530   BE-101      1

Thank you so much in advance