コードの内容は全く読み取っていないのですが、
> ReDim dels(UBound(dels) + 1)

For Each ループ内で繰り返し行うというのであれば、
Preserve キーワード付きで ReDim する必要があるのでは。

もしくは 配列の代わりに VBA.Collection を使うとか。