line up cells

[QuietRiot]

I have a workbook with 2 groups of data on it side by side. Goal here is to have them line up. The problem is one side has more data then the other OR the smaller side may have data thats not in the larger side.

example:

Accnt #, Name, address Acct#, Name, address

I would like:

1234 Mike Thomas 1234 Mike Thomas
1234 Jayne Thomas 1234 Jayne Thomas
1235 Chris Beaton
1236 Susan Hamel 1236 Susan Hamel


any help

 

[Boller]

This is probably quicker (no looping) :-

Dim rng As Range, area As Range
Application.ScreenUpdating = False
[N:N].Insert
Range([K2], [K65536].End(xlUp)(1, 6)).Cut [C65536].End(xlUp)(2)
Set rng = Range([C2], [C65536].End(xlUp)).Offset(, -2)
rng.EntireRow.Sort Key1:=[C2], Order1:=xlAscending
Range([C2], [C65536].End(xlUp)(1, 6)).Copy [K2]
[Q2] = 1
Set rng = Range([C2], [C65536].End(xlUp))
rng.Offset(, 14).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
rng.EntireRow.Sort Key1:=[A2], Order1:=xlAscending, Header:=xlNo
Range([B65536].End(xlUp)(2, 2), [C65536].End(xlUp)(1, 6)).ClearContents
Range([K2], [B65536].End(xlUp)(1, 15)).ClearContents
rng.EntireRow.Sort Key1:=[Q2], Order1:=xlAscending, Header:=xlNo
[N:N,Q:Q].Delete
Application.ScreenUpdating = False

 

[QuietRiot]

Thanks for you help, ill take a look later having issues getting it to work right now though.

the actually columns now that im at work from A to P

CO, fund&acct, Fund, Acct, NEW ACCT, INPA Name & Address, int-party stmt, in-party-confirm, isn, [J empty column],[k empty column], [l empty column], AccountNumber, CustomerName, INPA Name & Address, FormCategory

where JKL seperate left side form right side and NEW ACCT and AccountNumber are the criteria to line up