Help: Macro that runs various if statements, inserting rows etc

D

Darryl Las

I am a newcomer to Macros and excel programming and was hoping someone
could assist / provide the code to do the following:

I have a +50,000 line spreadsheet, that needs to be formatted. Given
the size I would like to automate this. There are 3 key formatting
changes required and detailed below:

n = 1
1. If Cell A(n) not equal Cell A(n+1) then
insert a new row below A(n), make Cell F(insertedrow)=1, make
Cell G(insertedrow)=A(n+1), make Cell H(insertedrow)=B(n+1)
2. If Cell C(n) not equal Cell C(n+1) then
insert a new row below C(n), make Cell F(insertedrow)=2, make
Cell G(insertedrow)=concatenate(A(n+1),C9(n+1)), make Cell
H(insertedrow)=C(n+1)
3. If Cell E(n) not equal Cell E(n+1) then
insert a new row below E(n), make Cell F(insertedrow)=3, make
Cell G(insertedrow)=concatenate(A(n+1),C9(n+1),LEFT(E(n+1),3)), make
Cell H(insertedrow)=E(n+1)
n=n+1
back to top and repeat until finished

Hope this makes some sense.

Thanks in advance
 
Top