Currently getting this Run Time Error With:

Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim Rng1 As Range
Dim Rng2 As Range
Dim c As Range

Application.ScreenUpdating = False
            Set WS1 = ThisWorkbook.Sheets("Tabelle1")
            Set WS2 = Workbooks("C:\Users\JeRi\Desktop\shortage\" & file).Sheets(file1)
            Set Rng1 = WS1.Range(WS1.Range("A5"), WS1.Range("A" & Rows.Count).End(xlUp))
            Set Rng2 = WS2.Range(WS2.Range("A2"), WS2.Range("A" & Rows.Count).End(xlUp))
            For Each c In Rng1
            On Error Resume Next
            Rng2.Find(What:=c).Offset(, 8).Resize(, 7).Copy Destination:=c.Offset(, 11)
            Err.Clear
            Next c
            Set WS1 = Nothing
            Set WS2 = Nothing
            Set Rng1 = Nothing
            Set Rng2 = Nothing
            Application.ScreenUpdating = True
Any Ideas why??

Thank You

JRidge