cut/paste VBA macro for Excel

VBA Macro. I hope this macro will be simple to program. I need a macro that will cut the first 1000 cells in column A and be pasted into the single cell B2. All the values in cell B2 must be seperated by a semi-colon (;). This project is time-sensitive. I need this before the next 24 hrs. Thanks in advance