An Excel Visual Basic Macro by Troy M. Goss (as work for hire) Created in Windows 7 Excel © 2012 Used to reduce extremely large data sets (50,000+) Listing with data in multiple cells were combined and place within one cell for faster data transfer, and error checking. The output of this was put into another tool. Sub MoveDataToOne() ' ' MoveDataToOne Macro ' Move all distant data to row 1 ' ' Keyboard Shortcut: Ctrl+Shift+O ' Dim Counter Dim Checker Dim Stopper Dim Looper Dim CK_Row Dim CK_Col Dim start Dim cram1 Dim cram2 Dim cram3 Dim cram4 Dim cram5 Dim cram6 Dim cram7 Dim cram8 Dim cram9 Dim cram10 Dim cram_MC1 Dim cram11 Dim cram12 Dim cram13 Dim cram14 Dim cram15 Dim cram16 Dim cram17 Dim cram18 Dim cram19 Dim cram100 Dim cram_MC11 Dim cycle Rows("1:1").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("How To Use & Headers").Select Rows("1:1").Select Selection.Copy Sheets("FIXIT").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = False Sheets("FIXIT").Select CK_Row = 2 'The checking begins with this row CK_Col = 2 'The checking begins with this column DoneVal = 0 'Initialize DoneVal Do While Done <> 8686 'Check if Done ' Initialize variables Counter = 0 Checker = 0 Stopper = 0 While Stopper <> 2 ' Test values Range("A1").Select Counter = Counter + 1 ' Increment Counter. Selection.Cells(CK_Row + (Counter - 1), CK_Col).Select Checker = ActiveCell.FormulaR1C1 If Checker = 1 Then Stopper = Stopper + 1 If Checker = 1 Then Range("A1").Select Selection.Cells(CK_Row + (Counter), CK_Col).Select Done = ActiveCell.FormulaR1C1 Else End If Wend ' End While loop when Stopper = 2 start = Selection.CurrentRegion.Row - Counter For cycle = 0 To (Counter - 2) If cycle = 0 Then cram1 = Selection.Cells(start, 1).Value cram2 = Selection.Cells(start, 2).Value cram3 = Selection.Cells(start, 3).Value cram4 = Selection.Cells(start, 4).Value cram5 = Selection.Cells(start, 5).Value cram6 = Selection.Cells(start, 6).Value cram7 = Selection.Cells(start, 7).Value cram8 = Selection.Cells(start, 8).Value cram9 = Selection.Cells(start, 9).Value cram10 = Selection.Cells(start, 10).Value cram_MC1 = Selection.Cells(start, 11).Value Else cram11 = Selection.Cells(start + cycle, 1).Value Selection.Cells(start, 1).Value = cram1 & Chr(10) & cram11 cram1 = Selection.Cells(start, 1).Value Selection.Cells(start + cycle, 1).Value = "" cram12 = Selection.Cells(start + cycle, 2).Value Selection.Cells(start, 2).Value = cram2 & Chr(10) & cram12 cram2 = Selection.Cells(start, 2).Value Selection.Cells(start + cycle, 2).Value = "" cram13 = Selection.Cells(start + cycle, 3).Value Selection.Cells(start, 3).Value = cram3 & Chr(10) & cram13 cram3 = Selection.Cells(start, 3).Value Selection.Cells(start + cycle, 3).Value = "" cram14 = Selection.Cells(start + cycle, 4).Value Selection.Cells(start, 4).Value = cram4 & Chr(10) & cram14 cram4 = Selection.Cells(start, 4).Value Selection.Cells(start + cycle, 4).Value = "" cram15 = Selection.Cells(start + cycle, 5).Value Selection.Cells(start, 5).Value = cram5 & Chr(10) & cram15 cram5 = Selection.Cells(start, 5).Value Selection.Cells(start + cycle, 5).Value = "" cram16 = Selection.Cells(start + cycle, 6).Value Selection.Cells(start, 6).Value = cram6 & Chr(10) & cram16 cram6 = Selection.Cells(start, 6).Value Selection.Cells(start + cycle, 6).Value = "" cram17 = Selection.Cells(start + cycle, 7).Value Selection.Cells(start, 7).Value = cram7 & Chr(10) & cram17 cram7 = Selection.Cells(start, 7).Value Selection.Cells(start + cycle, 7).Value = "" cram18 = Selection.Cells(start + cycle, 8).Value Selection.Cells(start, 8).Value = cram8 & Chr(10) & cram18 cram8 = Selection.Cells(start, 8).Value Selection.Cells(start + cycle, 8).Value = "" cram19 = Selection.Cells(start + cycle, 9).Value Selection.Cells(start, 9).Value = cram9 & Chr(10) & cram19 cram9 = Selection.Cells(start, 9).Value Selection.Cells(start + cycle, 9).Value = "" cram100 = Selection.Cells(start + cycle, 10).Value Selection.Cells(start, 10).Value = cram10 & Chr(10) & cram100 cram10 = Selection.Cells(start, 10).Value Selection.Cells(start + cycle, 10).Value = "" cram_MC11 = Selection.Cells(start + cycle, 11).Value Selection.Cells(start, 11).Value = cram_MC1 & Chr(10) & cram_MC11 cram_MC1 = Selection.Cells(start, 11).Value Selection.Cells(start + cycle, 11).Value = "" End If Next CK_Row = CK_Row + (Counter - 1) Loop Cells.Select With Selection .VerticalAlignment = xlCenter .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A1").Select Beep MsgBox ("Done and Done!") End Sub