エリアをクリアしてから、更新処理を走らせてみるとか?
Sub Macro1() '保存されているデータを先に消す(削除じゃなくて中身だけ) Range("B2:F50").ClearContents '書式設定を残したまま、数式と文字を削除します。 Range("B2").Select '元あったWebクエリーの左上を選んでから Selection.QueryTable.Refresh BackgroundQuery:=False '更新処理でデータセット End Sub
固定値(B2:F50)だと使えないかもしれませんが、何かの参考となれば...
単純にセルのデータを消してからWebクエリを動作させれば目的の動作をするのではないでしょうか。