Macro is inserting cells in one column, need it to insert in 2nd column as well

[MR22]

I have a macro that is comparing column A to column B and where B does not match A it is inserting a cell and moving the other cells down a row so that the values match again. I have descriptions in column C that i need to move along with column B. Is there a macro for this?

Thanks so much!

[arlu1201]

Why dont you post your macro here? We can edit it for you.

[rkey]

sounds like you could do something simulair with a vlookup function?
Can you post an example?

[MR22]

Here is my macro. It is comparing values in row P with values in row F. When P does not match F... It is inserting cells and shifting cells down in Row P until they match F again. Row Q has a description in it. I just want Q to move down with the value that also moves in P. How do I add this?
THANKS!!!!

Option Explicit
Sub Isolate()
Dim lastF, lastP, shortCol, rw As Integer
'Determine short column so we know when to stop
    lastF = WorksheetFunction.CountA(Range("F:F"))
    lastP = WorksheetFunction.CountA(Range("P:P"))
       If lastF > lastP Then _
          shortCol = 16 Else shortCol = 6
'Set First Check Row
    rw = 3
nxtChk:
'Check Column F against Column P, Row by Row
'Insert cell at non-matching data
  If Cells(rw, 6) <> "" And Cells(rw, 6) < Cells(rw, 16) Then
     Cells(rw, 16).Insert Shift:=xlDown

    Else
     If Cells(rw, 16) <> "" And Cells(rw, 6) > Cells(rw, 16) Then
        Cells(rw, 6).Insert Shift:=xlDown
     End If
  End If
'If there is nothing left to check in the Short Column, we're done
    If Cells(Rows.Count, shortCol).End(xlUp).Row + 1 = rw Then Exit Sub
'If not, increment Row counter and loop
    rw = rw + 1
 GoTo nxtChk
End Sub

[rkey]

What about adding this in for example columns R and S:

R1 = F1
S1 = Vlookup(F1; P:Q; 2; False)

[MR22]

No that isn't working. Column Q doesn't relate to F. It is just wording that needs to stay aligned with the values that are in column P.

[arlu1201]

Try changing this line

 Cells(rw, 16).Insert Shift:=xlDown

to

range(Cells(rw, 16),cells(rw,17).Insert Shift:=xlDown

[MR22]

This worked!!!!!!!!!!!!! YES!!!!!! I just jumped out of my seat! hahaha! Thank you so so so so much!!!