robinc1969,

In reference to your workbook:


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.



Option Explicit
Option Base 1
Sub ReorgData()
' stanleydgromjr, 01/14/2013
' http://www.excelforum.com/newreply.php?do=postreply&t=890900
Dim i As Variant, o As Variant, r As Long, s As Long
i = Range("E5").CurrentRegion
ReDim o(1 To UBound(i, 1) / 2, 1 To 3)
For r = 1 To UBound(i, 1) Step 2
  s = s + 1
  o(s, 1) = i(r, 1)
  o(s, 3) = i(r + 1, 1)
Next r
Range("G4").Resize(UBound(o, 1), UBound(o, 2)) = o
Range("G4").Resize(UBound(o, 1)).NumberFormat = "0.00"
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm


Then run the ReorgData macro.


I will be back in a little while with another slightly modified macro.


Have a great day,
Stan