Adding Another If Statement to a Macro

[JamesA11]

Hello

I have a macro which works ok but I want to add an additional If statement.

At present this line

ThisCell1.Offset(, 18).Value = 2

just adds the value 2 but I would like to change it so that it adds a 1 if the value in ThisCell2.(Offset(,3)is 1 or a 2 if the value in ThisCell2.(Offset(,3) is 2.

I've tried a few ways but I'm very much a VBA novice and don't seem to be able to add the If within the If.

Thank you

Option Compare Text

Sub InsertDetails()

Dim ThisCell1 As Range
Dim ThisCell2 As Range
    For Each ThisCell1 In ThisWorkbook.Sheets("Sheet1").Range("A5:A1000")
    'This is the range of cells to check
        For Each ThisCell2 In ThisWorkbook.Sheets("Sheet2").Range("A1:A10")
        'This is the range of cells to compare
            If ThisCell1 <> "" And ThisCell1.Value = ThisCell2.Value Then
                ThisCell1.Offset(, 16).Value = "BK"
                ThisCell1.Offset(, 17) = ThisCell2.Offset(, 4).Value
                ThisCell1.Offset(, 18).Value = 2
                Exit For
                End If
            Next ThisCell2
        Next ThisCell1

End Sub

 

[Fluff]

What should happen if ThisCell.Offset(,3) isn't a 1 or a 2?

 

[JamesA11]

Hello Fluff, if it's not 1 or 2 the macro shouldn't insert anything. In practice if it's not 1 or 2 it will be blank. Thank you

 

[Fluff]

I that case you can just use

                ThisCell1.Offset(, 18).Value = ThisCell2.Offset(, 3).Value