I have the below which works fine@

Dim rng As Range, Wrd As String, wa As Boolean, wb As Boolean
Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
Dim ws3 As Worksheet: Set ws3 = Worksheets("Sheet3")

For Each rng In ws2.Range("B2:B" & ws2.Range("B" & Rows.Count).End(xlUp).Row)
             
            Wrd = rng.Offset(0, 2)
    If rng = "Test" Then
                        If wa = False Then
        If Wrd = ws2.Range("C1").Value Then
            rng.Offset(0, -1).Copy ws3.Cells(3, "AJ")
            wa = True
                End If: End If
                            If wb = False Then
                    If Wrd = ws2.Range("D1").Value Then
                       rng.Offset(0, -1).Copy ws3.Cells(3, "AK")
                       wb = True
                    End If: End If
             
            End If
Next rng
However, if I want to add another word in such as Excel then how do I add an Or? Is it:

Dim rng As Range, Wrd As String, wa As Boolean, wb As Boolean
Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
Dim ws3 As Worksheet: Set ws3 = Worksheets("Sheet3")

For Each rng In ws2.Range("B2:B" & ws2.Range("B" & Rows.Count).End(xlUp).Row)
             
            Wrd = rng.Offset(0, 2)
    If rng = "Test" Or "Excel" Then
                        If wa = False Then
        If Wrd = ws2.Range("C1").Value Then
            rng.Offset(0, -1).Copy ws3.Cells(3, "AJ")
            wa = True
                End If: End If
                            If wb = False Then
                    If Wrd = ws2.Range("D1").Value Then
                       rng.Offset(0, -1).Copy ws3.Cells(3, "AK")
                       wb = True
                    End If: End If
             
            End If
Next rng
If I do this it doesn't work though!