以下代码实现分组，将分组后的数据与sheet1中匹配，匹配成功后赋值。红色区域总是报错

llooopp

With crr
    With Worksheets(1).Range("E:E")
         Set c = .Find(crr, LookIn:=xlValues)
          If Not c Is Nothing Then
           With Worksheets(2).Range("E:E")
             Set d = .Find(crr, LookIn:=xlValues)
              If Not d Is Nothing Then
              c.Offset(, 4) = UBound(d(aa), 2)
              c.Offset(, 1) = d.Offset(, 1)
              End If
              End With
          End If  
       End With
    End With
    Next
Set d = Nothing

请帮忙查看，代码有什么问题，执行到红色代码区域总是报错，如下