【解決】'****.xlsm' には読み取れない内容が含まれています。このブックの内容を回復しますか？ ブックの発行元が信頼できる場合は、[はい]をクリックしてください。

'****.xlsm' には読み取れない内容が含まれています。このブックの内容を回復しますか？ ブックの発行元が信頼できる場合は、[はい]をクリックしてください。

というメッセージが！！！

ここで、「いいえ」を選択すると、そもそもブックを開けないので、「はい」を選択するんだけど、すると次は、

読み取れなかった内容を修復または削除することにより、ファイルを開くことができました。
削除されたレコード : /x/worksheets/sheet1.xml パーツ内の並べ替え

というメッセージが、、、

見た感じ、おかしくなっている箇所はないようだけど、
実に、実に、気持ち悪くて不安です。
だって、気付いていないところでデータが削除されてたら、とんでもない結果になりかねません。
だってだって、仕事ですから。

だから、検索後に以下のコードを足しておきましょう。

ActiveSheet.Sort.SortFields.Clear

例えばこんな感じ↓
Dim bb
bb = Selection.Column
ActiveSheet.Range("2:513") _
.Sort Key1:=Columns(2), order1:=xlAscending, _
Key2:=Columns(3), order2:=xlAscending, _
Key3:=Columns(4), order3:=xlDescending
ActiveSheet.Sort.SortFields.Clear