Microsoft Office Forums - View Single Post - [Solved] How to organize and insert blank cells between a huge number of data?

Kimberly · 09-24-2010, 01:30 PM

I have to go, so here is another shot at me figuring out what you want:

Code:

Sub Macro1()
'
' Macro1 Macro
'
'
Range("B2").Select
Do
    If (ActiveCell.Value > ActiveCell.Offset(0, -1)) Then
    
        ActiveCell.Range("A1:F1").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        ActiveCell.Offset(1, 0).Range("A1").Select
    
    Else
        ActiveCell.Offset(1, 0).Range("A1").Select
    
    End If
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("A1").Select
End Sub