The following macro attempts to fix that and is dependent on there being a value in Column A for every row in the original. Calculation = xl Automatic '--Excel 95 Application.This macro will move cells up if there is an empty cell above and column A cell is empty. Column For r = Rcnt To 2 Step -1 If Is Empty(Cells(Rcnt, 1)) Then For c = 1 To Ccnt If Not Is Empty(Cells(r, c)) Then If Not Is Empty(Cells(r - 1, c)) Then Go To notthis End If Next c For c = 1 To Ccnt If Not Is Empty(Cells(r, c)) Then Cells(r - 1, c) = Cells(r, c) End If Next c Cells(r, 1). Screen Updating = True End Sub The Del Cells Up macro will delete all empty cells within the highlighted range and move the cells and formatting up from below.
Column, _ Visibledropdown:=True End Select Next Application. Screen Updating = False For Each c In Range(Cells(1, 1), Cells(1, i)) c. For more depth see Install a Macro or User Defined Function on my Formula page.Speed and efficiency considerations can be seen in Proper, and other Text changes and in Slow Response.My issue: I have 494 files that are output files from a label scanner that I am trying to put into Excel 2007 to be able to work with better.Currently I am going to Data Delimiters [Tab, Semicolon, Comma, Space, Other field set to (=)]) This seems to work out the best to separate the data in the text files into columns that I can work with. Delete Shift:=xl Up c = c - 1 Else c = c - 1 End If Next Row Msg Box " "Application.