エクセル 規定枠に入力されたデータをずらしたいのですが

質問

1ページに本の簡単な内容(画像付き)を入力する枠が8個あります。
それが150ページ一個一個に連番振られいるのですが、途中のページに一個内容を追加することになりました。

　１　　　２　　　９　　１０　　　　　１　　　２　　　８　　　９
　３　　　４　　１１　　１２　　→　３　　　追　　１０　　１１
　５　　　６　　１３　　１４　　　　　４　　　５　　１２　　１３
　７　　　８　　１５　　１６　　　　　６　　　７　　１４　　１５
　　1page　　　2page　　追加後　1page　　　　2page
　　　　　（数字は画像付きのデータ枠と考えてほしいです）

追加する内容以降のページを全てずらすことになります、個々の番号もそれ以降振り直しになります。
　そこでこの一内容を追加する処理を、エクセルの機能で効率的に作業する方法がないかお聞きしたいです。
通常の機能では無理な場合、マクロもしくはVBAでの処理方法でも結構です。
　なにとぞよろしくお願いします。

回答No.1

KURUMITO · ベストアンサー

Ａ列からＤ列が使われているとして次のマクロではどうでしょう。
Sub 挿入と移動()
Dim Ra As Integer
Dim Ca As Integer
Dim A As Integer
Dim Rs As Integer
Dim Rm As Integer
Dim RowPos As Integer
Dim ColPos As Integer
Ra = ActiveCell.Row
Ca = ActiveCell.Column
A = ActiveCell.Value
If Ra <= 4 Then
Rs = 1
Else
Rs = Ra - 4
End If
Rm = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For RowPos = Rs To Rm
For ColPos = 1 To 4
If Cells(RowPos, ColPos).Value > A Then
Cells(RowPos, ColPos).Value = Cells(RowPos, ColPos).Value - 1
End If
Next
Next
Cells(Ra, Ca) = ""
Application.ScreenUpdating = True
End Sub

お礼

ご回答ありがとうございます。
プログラムを読ませていた感じではこれで解決できそうな気がします。
月曜日に実際の枠に調整をして試させて頂こうと思っていますので、またNo.2で報告させていただきます。お時間あれば覗いてやってください。
　お時間を割いていただき重ね重ねお礼を申し上げます。

回答No.2

KURUMITO

解答Ｎｏ1です。
マクロは追加したいセルをアクティブセルにしてから実行してください。

お礼

ご返事が遅れすみません。載せていただいたプログラムを参考にして、番号の振り直しが解決しました。
ありがとうございました。