Paul,
Absolutely PERFECT! Thank you so very much. I will analyze every line of
code to learn, but it worked just as I needed.
Thank you again.
John
On Wednesday, May 21, 2014 2:10:55 PM UTC-4, Paul Schreiner wrote:
This macro seems to work with the sample data:
Option Explicit
My daily download has intermittent blank cells per row based on the column
heading. I need shift all the data to the left leaving the blank cells per
row on the right. I am interested in a macro or a formula or both. I have
attached a sample file with the required details.
Thank you for your
This macro seems to work with the sample data:
Option Explicit
Sub Cleanup()
Dim R, nRows
Dim C, nCols, C2
Dim bFlag
nRows = ActiveCell.SpecialCells(xlLastCell).Row
nCols = ActiveCell.SpecialCells(xlLastCell).Column
For R = 2 To nRows
If (Cells(R, A).Value X X)