Note: I am a beginner at VB.

I have 2 worksheets. The first worksheet "Questionnaire" contains approx 50
questions users fill out (each question is on a separate row - 50 rows) - the
responses go into column F. The second worksheet "Results" is where I want
to consolidate the questionnaire results.

Next, I want to take the responses from column F in the Questinnaire
worksheet and copy the data into the next available row on the Results
worksheet. Therefore taking 50 cells of data (from column F) and putting
them into one row in the Results worksheet (50 columns across).

I thought I could do this a simple way by giving each cell in column F a
Name and simply moving the Named field into the rows in the Results
worksheet... didn't work. I gave each data entry cell a name like :
Value_One, Value_Two up to Value_Fifty.

Here's a sample of what I tried to do for 4 values.


ActiveWorkbook.Sheets("Results").Activate
Range("A5").Select

'In column A, look for next empty cell
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

'move the contents of Application Info to results worksheet
ActiveCell.Value = Value_One
ActiveCell.Offset(0, 1) = Value_Two
ActiveCell.Offset(0, 2) = Value_Three
ActiveCell.Offset(0, 3) = Value_Four


Note: Users may need to fill out the questionnaire more than once, so I
have a button to clear out their responses in order for them to fill it out
again. I also have a button they click when they have completed the
questionnaire - which triggers the Results worksheet to be populated (well it
would do this if it worked).

Is there a shortcut to doing this? If not, how should I be coding this.

Thanks, Mary-Lou