Object Variable or with block variable not set when copying from one sheet to another

I am trying to copy certain data from the 2nd,3rd, and 4th sheets of the workbook. Before with the name of worksheets, it was working. Now, I would like to copy regardless of name from these sheets. I get this error. I have looked up the questions, however, I could not work around them.

Sub ImportSTLY()
    
    
    Dim Wb As Workbook
    Dim NWbImport As Variant
    
    Set Wb = ThisWorkbook
    
    
    'Select the files to import
    varFileName = ActiveWorkbook.Path & "\SZR STLY.xlsb"
                  

    'If no file was selected the sub will be ended
    If varFileName = False Then
        'MsgBox "No files were selected.", vbOKOnly, "Select Again"
        End
    End If
       
    Set NWbImport = Workbooks.Open(varFileName, UpdateLinks:=False, ReadOnly:=True)
    
    With NWbImport.Worksheets(2).Range("A1:B50").Find("Totals").Offset(, 1).Resize(1, 8).Copy
         Wb.Worksheets(2).Range("A1:B50").Find("STLY").Offset(0, 1).PasteSpecial Paste:=xlPasteValues
         NWbImport.Worksheets(3).Range("A1:B50").Find("Totals").Offset(, 1).Resize(1, 8).Copy
         Wb.Worksheets(3).Range("A1:B50").Find("STLY").Offset(0, 1).PasteSpecial Paste:=xlPasteValues
         NWbImport.Worksheets(4).Range("A1:B50").Find("Totals").Offset(, 1).Resize(1, 8).Copy
         Wb.Worksheets(4).Range("A1:B50").Find("STLY").Offset(0, 1).PasteSpecial Paste:=xlPasteValues
        
    End With

    'Close the imported file
    objWBookImport.Close False
    'Worksheets("Dashboard").Activate
    
End Sub
How many English words
do you know?
Test your English vocabulary size, and measure
how many words do you know
Online Test
Powered by Examplum