> keyはFor Eachで廻していて、B13～CR13までのセルはいくつかに結合されています。
B13:CR13 というと、13行目の第2列～第96列目に相当しますね。

しかし提示されたコードには、For Each の記述が無いようですが、
実際のコードは、どのようになっているのでしょうか?

> CR13より前までのセルのsymbolは取得できています。
> なのにCR13だけsymbolがNothingになります。
こちらでは再現できませんでした。現象をこちらで追試できるよう、
セルがどのように結合されていて、どのようなデータが入力されていたのか、
また、Find に指定した key の中身が何であるのかを示して頂けないでしょうか。


なお、個々のオブジェクトは、Marshal.ReleaseComObject メソッドを用いて、
使用後に後始末する必要があります。そのため、

Dim symbol As Excel.Range = Nothing

Dim xlSheet As Excel.Worksheet = xlSheets.Item(1)

Dim baseRange As Excel.Range = xlSheet.Range("B13:CR13")

For Each key In データ

  symbol = baseRange.Find(key)

  'symbol に対する処理 

  Marshal.ReleaseComObject(symbol)

Next

Marshal.ReleaseComObject(baseRange)

のように、個々の Range オブジェクトを変数に受け、それぞれを解放させるようにしてください。
直接「xlSheet.Range("B13:CR13").Find(～)」のように記述してしまうと、中継役となった
B13:CR13 の Range オブジェクトを、明示的に解放させる事ができなくなってしまいます。