VBA Macro to return non-blank values from multiple columns/rows into 3 columns

Hi,
Does anyone know a VBA Macro to return all non-blank values from multiple columns/rows into three columns in the format below in a different sheet?

Example in Sheet1 (2 "header" columns + up to 50 columns of numerical and text data - starting at A2):
Prog 1 12/3/2010 123 234 456
Prog 2 15/3/2010 xyz
Prog 3 16/3/2010 321 abc

would return 3 columns to Sheeet2 (starting at A2):
Prog 1 12/3/2010 123
Prog 1 12/3/2010 234
Prog 1 12/3/2010 456
Prog 2 15/3/2010 xyz
Prog 3 16/3/2010 321
Prog 3 16/3/2010 abc

There are up to 50 columns of the numbers/text (column 3 onwards) and the blanks are always at the end of the rows. The number of rows varies.

Thanks!
janie