Copy paste rows from one sheet to another n times.

Hello,
I need help with Macros.
I have my primary data(seeking production schedule) on sheet 1. I will have 100-120 rows
Of data. Column A(no of times to be copied) contains numbers from 1 to 40. I am looking for code to copy paste each row multiples times on 'sheet 2'equivalent to value in column A in the same row on sheet 1. Similar manner, it has to go through all the rows in sheet 1 and copy to sheet 2. Please help me on this code. Many thanks. Madan