If code help

[Jazzer]

Hello,

I am looking for some code to help wth the following please...

If B is not equal to H
Then I need to see if B matches H on the row below
if not does H match B on the row below

if H matches B on the row below then incert a row on H&I
if B matches H on the row below then incert a row on B&C

Does anybody understand?! and if so is this possible?

Many Thanks
James

 

[nightcrawler23]

you mean to say insert cells below the cells in columns H & I and same for B & C. Bcoz inserting rows for H or I will also insert it for B and C

 

[RichardMGreen]

Are you using VBA to insert the rows (I assume so)?

 

[Jazzer]

you mean to say insert cells below the cells in columns H & I and same for B & C. Bcoz inserting rows for H or I will also insert it for B and C

Apologies yes... insert cells

 

[Jazzer]

Are you using VBA to insert the rows (I assume so)?

Yes currently I have some code which I use to look up data from other tabs on my worksheet

 Sheets("LCHDATA").Select
    Range("C9").Select
    ActiveWindow.SmallScroll Down:=-9
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("REC").Select
    Range("B6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Sheets("NOMADDATA").Select
    Range("K8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("REC").Select
    Range("H6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B6").Select
    ActiveSheet.Range("$B$5:$C$200").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("H6").Select
    ActiveSheet.Range("$H$5:$I$200").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("C6").Select
    Selection.AutoFill Destination:=Range("C6:C200")
    Range("C6:C200").Select
    Range("I6").Select
    Selection.AutoFill Destination:=Range("I6:I200")
    Range("I6:I200").Select
    Range("A6").Select
End Sub

I just want to add to the existing code

thanks