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

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

tareq · #2 09-24-2010, 01:47 PM

Quote:

Originally Posted by kimberly

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

yessss!! It worked!!!! You did it kim!!! Omg!!! I don't know how to thank you my dearest!!!

))))))))) you solved my problemmm!!!!!
Love you love you love youuuuuuuuuu!!!!!!!!! :d :d :d :d :d
thanksssssss!!! Blesssss youuuu!!!

)))))))))))

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