そういやクリアコンテンツって
シートの選択から直は無理だったような?w

Sheet(H).Select

を行で独立させてみたら?