VBAコード修正

繰り返し使用している動作を標準モジュールに移動。