Shift Down if not match

[Legacy 185509]

Hi,
I have data from A2:G2 to A4000:G4000

so I am matching column A with column B

if cells in Column B don't match with cells in Column A than Shift down cells B:G and check if tht matches if tht matchs and check the next row and repeat

I don't want to spend hours doing it manually plz help me

Thanks

 

[Legacy 185509]

It did just did one shift and it throw 400 Error.

 

[Legacy 185509]

I fixed the code bit. It will work both ways.

This code is Comparing Column A with column C.

If A & C don't match it will check which one is greater.

It can shift down both column A & B and also C & D.

Sub AlignData()
Dim LR As Long, i As Long
Dim IFind As Variant, IFind2 As Variant
'this compares two columns (A, E) to align matching data to same row
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
i = 2
Do
IFind = Cells(i, 1)
IFind2 = Cells(i, 3)
If IFind < IFind2 Then
If IFind <> IFind2 Then
Range(Cells(i, 3), Cells(i, 4)).Insert Shift:=xlDown
End If
ElseIf IFind > IFind2 Then
If IFind2 <> IFind Then
Range(Cells(i, 1), Cells(i, 2)).Insert Shift:=xlDown
End If
End If
i = i + 1
     
   
Loop Until IsEmpty(Cells(i, 1))
      
MsgBox "Done"
Application.ScreenUpdating = True
End Sub

 

[dinkey]

I need to do exactly what the original poster is trying to do. Where is the code in the solution entered?

 

[Joe4]

You need to create a new VBA module and copy and paste the code there.
See here for instructions on how to do that: Insert and run VBA macros in Excel - step-by-step guide

 

[ComputerExcel]

@Joe4 @texasalynn
Thank you both for this solution. This is amazing and has saved so much time with a long running issue