An Excel Visual Basic Macro by Troy M. Goss (as work for hire) Created in Windows 7 Excel © 2012 Used to compare extremely large data sets (1000+) It was necessary to process the data in a single stack in order for the tool the developers made to function properly. They could not alter their tool, so I asked if I could alter the data so that we would not have to manually correct all the files as some were doing. This program saved 100’s of hours of work and allowed us to deliver the files ahead of schedule. Sub SingleFileSVN() ' ' SingleFileSVN Macro ' Move all paired up data to a single column stacked ' ' Keyboard Shortcut: Ctrl+Shift+V Dim Done Dim KM_Row Dim KM_Col Dim STK_Row Dim STK_Col Dim NumData ' Initialize variables Done = 1 KM_Row =2 KM_Col =1 STK_Row =2 STK_Col =7 Do While Done <> 0 'Check if Done Range("A1").Select 'reset Selection.Cells(KM_Row, KM_Col).Select NumData = ActiveCell.FormulaR1C1 'Pickup Keep Done = ActiveCell.FormulaR1C1 Range("A1").Select 'reset Selection.Cells(STK_Row, STK_Col).Select ActiveCell.FormulaR1C1 = NumData 'Dumpoff Keep Range("A1").Select 'reset Selection.Cells(KM_Row, KM_Col+1).Select NumData = ActiveCell.FormulaR1C1 'Pickup Merge Range("A1").Select 'reset Selection.Cells(STK_Row+1, STK_Col).Select ActiveCell.FormulaR1C1 = NumData 'Dumpoff Merge KM_Row = KM_Row + 1 'Increment Positions STK_Row = STK_Row + 2 'Increment Positions Wend ' End While loop when Stopper = 2 Range("A1").Select Beep MsgBox ("Done and Done!") End Sub ======= The same code, but for the latest version of the MERGE TOOL KIT I had to modify the name ======= Sub ShuffelFileSVN() ' ' ShuffelFileSVN Macro ' Input: List of Keeps&Merges 2 columns Output: List of Keeps&Merges 1 column ' ' Keyboard Shortcut: Ctrl+Shift+V ' ' ShuffelFileSVN Macro ' Move all paired up data to a single column stacked like a perfect card shuffle ' ' Keyboard Shortcut: Ctrl+Shift+V Dim Done Dim KM_Row Dim KM_Col Dim STK_Row Dim STK_Col Dim NumData ' Initialize variables Done = 1 KM_Row = 2 KM_Col = 1 STK_Row = 2 STK_Col = 7 Application.ScreenUpdating = False Sheets("Format SVN Shuffle").Select Do While Done <> "" 'Check if Done Range("A1").Select 'reset Selection.Cells(KM_Row, KM_Col).Select NumData = ActiveCell.FormulaR1C1 'Pickup Keep Range("A1").Select 'reset Selection.Cells(STK_Row, STK_Col).Select ActiveCell.FormulaR1C1 = NumData 'Dumpoff Keep Range("A1").Select 'reset Selection.Cells(KM_Row, KM_Col + 1).Select NumData = ActiveCell.FormulaR1C1 'Pickup Merge Range("A1").Select 'reset Selection.Cells(STK_Row + 1, STK_Col).Select ActiveCell.FormulaR1C1 = NumData 'Dumpoff Merge Range("A1").Select 'reset Selection.Cells(KM_Row + 1, KM_Col).Select 'Sneak Peek Done = ActiveCell.FormulaR1C1 KM_Row = KM_Row + 1 'Increment Positions STK_Row = STK_Row + 2 'Increment Positions Loop ' End While loop when Stopper = 2 Range("A1").Select Beep MsgBox ("Done and Done!") End Sub Sub CLEARSHUFF_SVN1() ' ' CLEAR_SVN Macro ' clear the FORMAT SVN form of all data ' ' Range("A2:B1000").Select Selection.ClearContents Range("G2:G1000").Select Selection.ClearContents Beep MsgBox ("Clear - Done and Done!") Range("A1").Select End Sub Sub CLEARSHUFF_SVN2() ' ' CLEAR_SVN2 Macro ' clear the FORMAT SVN form of KEEP/MERGE stack data ' ' Range("G2:G1000").Select Selection.ClearContents Beep MsgBox ("Clear - Done and Done!") Range("A1").Select End Sub