IsNumericでB2を判定してTrueならFor文を走らせて、FalseならB2をA6へ