簡素化

質問

よろしくお願いします
下記構文の簡素化ができないでしょうか。
Application.ScreenUpdating = False
Dim r As Range
Set r = ActiveCell.MergeArea
r.MergeCells = False
With Sheets("注文伺い書入力")

ActiveCell.Offset(0, 21).Activate
ActiveCell = ""
ActiveCell.Offset(0, 2).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
End With
r.MergeCells = True
Application.ScreenUpdating = True

回答No.2

n-jun

n-junです。

ちなみに
＞ActiveCell.Range("V1,X1:AT1").
はセルＶ１とかＸ１～ＡＴ１とかではなく、ActiveCellをセルＡ１と仮定した場合の
Ｖ１やＸ１～ＡＴ１にあたる場所となりますので。

回答No.1

n-jun

＞ActiveCell.Offset(0, 21).Activate
から
最後の
＞ActiveCell = ""
までを消して、

ActiveCell.Range("V1,X1:AT1").Value = ""
の一行で。

お礼

n-junさん　早速の回答ありがとうございます。
解決しました。
今後もよろしくお願いします。