Comparing two fields and inserting rows

[PattiFlick]

Hi...I want to create a Macro that compares two fields. If they match, move to the next row. If field1 is greater than field2, insert a blank field (shift everything down) in field1 until field1 = field 2. If field2 is greater than field1, insert a blank field (shift everything down) in field1 until field1 = field2.
I've been doing it manually and would like to have a macro do it. In the example below I shifted Field2 down when it didn't match. The next field that would need to shift down is Field2 = 24725. Thank you for any help.

Field1 Field2
6947 6947
7113 7113
7825
7873 7873
9657 9657
24675 24675
24688 24725
24725 24941
24941 25146
25146 25170
25170 25226
25226 25269
25269 25505
25505 25646
25646 25670
25670 25697
25697 25916
25916 26259
26259 26377
26377 26396
26396 26427
26424 26477
26427 26491
26477 26680
26491 26768
26680 26794
26768 26911
26794 26976
26911 26982
26976 27002
26982 27004
27002 27007
27004 27036
27007

[maniacb]

Give this a try

Please Login or Register  to view this content.

[PattiFlick]

Thank you! That worked perfect! I'm sorry I spent so much time on my own trying to figure it out!