>>687 は、A1から列方向に順に1,2,3,･･と10まで埋める処理のスピードを調整できる例の三つのサンプル
ただ、②は最初に Private とか入れとかないと Declareステートメントはどうちゃらのエラーに成る
おそらくAI辺りの回答を真に受けてまんま貼り付けただけだと推測される
当人にVBAの知識が無いのかも知れないし、実務はこなしたことが無いのかも知れない　両方かも