Help!!!

[New_VBA'er]

This is what I am trying to achieve...

Is a1 = c1? after test loop to next cell and test again...
if yes, then goto a2 and conduct test for a2 = c2, etc...
if no, insert a blank cell into a1 (this should then move the contents of cell a1 to cell a2), then conduct test for a2 = c2, etc...
I need this to continue to the last populated cell in column. This should be 10883.

Can someone please help me with this, I just can't get my head around it.

 

[Smitty]

Welcome to the Board!

See if this gets you started:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> i = Cells(Rows.Count, "A").End(xlUp).Row <SPAN style="color:#00007F">To</SPAN> 1 <SPAN style="color:#00007F">Step</SPAN> -1<br>            <SPAN style="color:#00007F">If</SPAN> Cells(i, "A").Value <> Cells(i, "C").Value <SPAN style="color:#00007F">Then</SPAN><br>                Cells(i, "A").Offset(1).EntireRow.Insert<br>            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>        <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[New_VBA'er]

Hi Smitty,

Thank you for your info, unfortunately it was not successful. The loop continued.

Also, I only want to insert one cell at a time not entire row. Can you pls give it another go?

Thank you