Find data in a column from a cell reference in another worksheet then copy some data to another worksheet

I have 3 worksheets in the workbook: 1st is the Info sheet where cell S1 has the Trainer Name that I need to find in the 2nd sheet named Classes.

Once the Trainer Name is found in the Classes sheet (Column H), I then need to put that Trainer name in the Output sheet(next blank row, column A).

Then I also need to get Class Name from Classes (column A), Grad Date(Column P) and a few more data in columns X to AB.

I can't seem to get how to code this correctly as the code I have runs but it does not enter the data into the Output sheet. I've only tested 2 fields so far.

Sub GetClassData()
Dim cls As Worksheet
Dim shOUT As Worksheet
Set cls = Worksheets("Classes")
Set shOUT = Worksheets("Output")
Dim trName As Range
Set trName = Worksheets("Info").Range("S1")

cls.Select
' Find the last row of data
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
    ' Decide if to copy based on column H
    thisvalue = Cells(x, 8).Value
    If thisvalue = trName.Value Then
        irow = Cells(Rows.Count, 1).End(xlUp).Row + 1
        With shOUT
            .Cells(irow, 1).Value = trName.Value
            .Cells(irow, 2).Value = trName.Offset(, -7).Value
        End With
    End If
Next x
End Sub