update data via macro from another workbook

I need some help with vba code. I'm self-lerning so please be understanding for simply cases ;)

I'm trying to create macro which will be looking for some records/cells in one workbook (FileA) (determined by 3 conditions) and then paste values to another workbook (FileB) and after that find in another tab in FileB some values where condition will be pasted value to match them with looking value (I belivie it could be done somehow with Vlookup but I get stuck).

Below problematic for me part of code (I'm working on some files found in work, no one use it now).

First issue is with Set Update, I don't know why it takes it as "Nothing"... conditions are true - I mean "pp1" is existing in column A in FileA.

Second issue shows when I change i start range to some "later" numbers, eg From i = 2280, macro is ignoring last line where should assign some values (again shows update2 as "nothing") but value if pp2 is existing in W column in tab data...

 Dim name As String

 name = "[path to file on sharepoint]"

Application.ScreenUpdating = False
Workbooks.Open Filename:=name    
a = 1
For i = 2263 To 14000

   If Workbooks("FileA").Sheets("Main").Cells(i, 11) = "CANCEL" And Workbooks("FileA").Sheets("Main").Cells(i, 6) = "DENIS" And Workbooks("FileA").Sheets("Main").Cells(i, 5) > 1301358454 Then

     pp1 = Workbooks("FileA").Sheets("Main").Cells(i, 1)
    
       If pp1 > 0 Then
    
    Set Update = Workbooks("FileA").Worksheets("Main").Range("A:A").Find(pp1, lookat:=xlPart)
    
       If Update > 0 Then
                                
       Update = Update.Row
                                
       Workbooks("FileB").Worksheets("lost").Cells(a, 1).Value = Workbooks("FileA").Worksheets("Main").Cells(Update, 5)
                                
                                
       pp2 = Workbooks("FileB").Worksheets("lost").Cells(a, 1)
       
       update2 = Workbooks("FileB").Worksheets("data").Range("W:W").Find(pp2, lookat:=xlPart).Row

       Workbooks("FileB").Worksheets("lost").Cells(a, 5) = Workbooks("FileB").Worksheets("data").Cells(update2, 43)