Hi, my code is returning a run-time error, cant seem to figure out why.

Dim totalrows
totalrows = Sheets("Sheet1").Range("a1").End(xlDown).Row
    

   Sheets("Sheet1").Select
   With Sheets("Sheet1")
   
      .Range("m2:m" & totalrows).Formula = "=vlookup(l2,lookup!$c$7:$d$13,2,false)"
      ''.Range("n2:n" & totalrows).Formula = "=right(b2,len(b2)-find(""-"",b2,1))"
      ''.Range("o2:o" & totalrows).Formula = "=vlookup(n2,lookup!$f$2:$g$180,2,false)"

      With Sheets("Sheet1")
        .Range("a:m").AutoFilter field:=13, Criteria1:=Array("Date to Import"), Operator:=xlFilterValues         
        '.AutoFilter field:=15, Criteria1:=Array("Name to Import"), Operator:=xlFilterValues
        .Range("a:m").AutoFilter field:=5, Criteria1:=Array("colenq", "created", "createdct", "easycreate", "ecreated", "generated", "generated1", "incomplete", "initvet", "mcreated", "pullkeep", "referred", "reject", "rescan", "rescanned", "vetted", "mgmtrefer", "screated", "mgtco", "createde"), Operator:=xlFilterValues
         
         ' test if data returned by filter
         If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
            .Resize(.Rows.Count - 1).Offset(1, 0).Copy Workbooks(ws).Sheets("RawData").Range("A" & Rows.Count).End(xlUp).Offset(1)
         End If
      End With
      End With

Bugging out on the highlighted line