I have data in columns B through F. I am needing it in the format of column A. I have tried the following VBA loop code. The 1st screen shot is the desired results and the 2nd screen shot is what the vba code is bringing back. It starts off copying and transposing correctly, but doesn't move down far enough before pasting and transposing the 2nd line and overwrites the data from the 1st. It needs to drop down 3 more lines before pasting. I am a vba novice and need help in this. Thanks in advance.
Do Until IsEmpty(ActiveCell)
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Application.CutCopyMode = False