[RESOLVED] Useful two table line up excel

[westconn1]

try this

Sub lineup()
i = 3
Do Until i = ActiveSheet.UsedRange.Rows.Count
    If Not IsEmpty(Cells(i, 1)) And Not IsEmpty(Cells(i, 9)) Then
        If Cells(i, 1) > Cells(i, 9) Then
            Range(Cells(i, 1), Cells(i, 4)).Insert xlDown
            
        ElseIf Cells(i, 1) < Cells(i, 9) Then
            Range(Cells(i, 9), Cells(i, 13)).Insert xlDown
        ElseIf Cells(i, 1) = Cells(i, 9) Then
            If Cells(i, 2) > Cells(i, 10) Then
                Range(Cells(i, 1), Cells(i, 4)).Insert xlDown
            ElseIf Cells(i, 2) < Cells(i, 10) Then
                Range(Cells(i, 9), Cells(i, 13)).Insert xlDown
            End If
            
        End If
    End If
        i = i + 1
        
Loop
End Sub

[gphillips]

Hi,

Getting there, for some reason , it does not work if the very bottom ones are different on both tables are different.
It seem to get lost at the very bottom few lines. try changing a few
Any ideas