Excel VBA改修／既存のWebスクレイピングツールをIEからEdgeに仕様変更してください

【依頼背景】 　作成済みのWebスクレイピングツールをExcelのVBAで作成しています。 　参照先WebサイトがIEからEdge仕様になったため、IEベースの現ツールでは 　機能しなくなりました。 　　※新しいページをIEで開くと画面がずれます 　そのため、IEベースのVBAをEdgeベースに改修して正常にWebスクレイピング 　できるようにしてくれる方を探しています。 【概要】 　予めテーブル機能で項目が設定されています。 　そのテーブルに2つのサイトからWebスクレイピングして1行毎にデータを 　決められた場所（行／列）に取得します。 【依頼内容】 　Edge仕様となった2つのサイトからWebスクレイピングできるように改修を 　お願いします。 　その際、いままでと同じように各項目にデータが正しく転記されるように 　仕上げてください。 　　※HTMLタグからデータを取得する方法も変わっている可能性もあります 　　※変数やシート名などは極力同じものを使うか、踏襲（変数は日本語を使う） 　　　願います 　　※回りくどくなっても良いので、素人目で見ても分かりやすく作成願います 【依頼内容】 　依頼時に、Webスクレイピングツールと（.xlsm）とマニュアル（添付済）を 　お渡しします。 【記述例】 Function UrlIE(UrlTarget As String) As Object Dim objIe As Object Set objIe = New InternetExplorer objIe.Visible = False objIe.navigate UrlTarget Do While objIe.Busy = True Or objIe.readyState <> 4 DoEvents Loop Set UrlIE = objIe End Function