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

tareq · 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!!!

)))))))))))