Macro to Copy Paste Values from one workbook to another if case number matches

I'm very new to macros and can't figure out how to do something similar to offset-match or vlookup in a macro. I have 2 workbooks; Review workbook and Master workbook. The Review workbooks are sent to me daily with the reviewer's findings. Each workbook has 1 reviewer's findings with a unique case number that was previously assigned. The Master workbook has the list of all of the case numbers in which I copy the findings to the Master according to the case number.

I would like a macro that would look for the case number from the Review workbook (B1) on the Master workbook (column A); if the case number is found in the Master workbook then copy the data from the Review workbook (B2:B35) and paste values in the Master workbook (column U:BB.....row will vary depending on the case number). If the case number is not found, a message saying so (Not Found) will appear.

I appreciate any help!

This is what I have so far but it does not work. Since I have both workbooks open, I get a message about opening the workbook again.

Sub ReviewData()
    Dim r As Range, c As Range, cfind As Range
    Dim wbData As Workbook
    Dim wbDes As Workbook
    Dim shData As Worksheet
    Dim shDes As Worksheet
    Set wbData = Workbooks.Open("FCRT Request Form 0723.xlsm")
    Set wbDes = Workbooks.Open("Flood Review DB3.xlsm")
    Set shData = wbData.Worksheets("Review Data")
    Set shDes = wbDes.Worksheets("Data")
    
    With shDes
        Set r = Range(.Range("A2"), .Range("A2").End(xlDown))
        For Each c In r
            Dim x
            x = c.Value
            With shData.Columns("A:A")
                Set cfind = .Cells.Find(what:=x, lookat:=xlWhole)
                    If Not cfind Is Nothing Then
                        Dim rdata As Range
                        Set rdata = Range(.Cells(cfind.Row, "B"), .Cells(cfind.Row, "AI"))
                        rdata.Copy
                    End If
                End With
                .Cells(c.Row, "U").PasteSpecial
            Next c
        End With
                
    
End Sub