>>894
宣言は型も指定して、最初にまとめてしてます。
しかし宣言を削除しても変わりませんでした

代入は、していません。
ステップインで以下の行を実行すると、「リスト最終行」という全く関係ない変数の値が変わっています
可変変数かと思いましたが、一体何なんでしょうか
特売コード名 = "" '何故かここで変数「リスト最終行」が「特売コード」の値になります。13桁なのでものすごい量の処理になってしまいます

また、コードの最初に以下の高速化を入れていますが、関係あるでしょうか（もちろん最期に解除しています）
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual