Copy and Paste in different locations depending on adjacent cell value

Maybe:

Sub FirstTryTime() 'ScabbyDog

Dim rng As Range
Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
Dim ws3 As Worksheet: Set ws3 = Worksheets("Sheet3")

                    ws2.Select

For Each rng In Range("B2:B" & Range("B" & Rows.count).End(xlUp).Row)
    If rng = "Test" Then
          
        If rng.Offset(0, 2).Value = Range("C1").Value Then
            rng.Offset(0, -1).Copy ws3.Cells(3, "AJ")
                    End If
           
                    If rng(0, 2).Value = Range("D1").Value Then
                       rng.Offset(0, -1).Copy ws3.Cells(3, "AK")
                    End If
                        
            Exit For
            End If
Next rng

End Sub