質問者が納得読み間違っている可能性がありますのでテストデータ（コピー）でお試しください。エラーその他は補足でどうぞ！
Sub MyMacro1()
Dim sh(3) As Worksheet
Dim rng(1) As Range
Dim lastRow As Long
Dim titleRow As Long
Dim i As Long
'OSに制御を戻す
DoEvents
'画面更新を停止する
Application.ScreenUpdating = False
'シートを変数に設定する
Set sh(0) = ...
4767日前view30
