エラーメッセージです..Range(Selection, Selection.End(xlDown)).Selectのところで,”オブジェクト変数またはWithブロック変数が設定されていません.”というエラーがでます.