How to organize and insert blank cells between a huge number of data?

Kimberly · #7 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Bar chart help urgent ?????	aligahk06	Excel	1	07-08-2010 12:23 AM
Bar chart help urgent ?????	aligahk06	Project	0	07-03-2010 06:58 AM
Urgent help regarding automation.	aligahk06	Excel	1	01-14-2010 01:55 PM
Urgent Help Required	id12345	Word	4	12-29-2009 08:22 AM
Urgent help!	captainspi	Word	2	04-19-2009 11:17 AM