マクロ是非ともアドバイスお願いします。

質問

6月累計ファイル データをコピーして「全社累計」ファイルへ貼り付け

’6月累計ファイル データF32～F109データをコピーして
Range("F32:F109").Select
Selection.Copy
’全社累計シート管理用E3～E80に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("E3:E80").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E3:E80").Select

これを

F32→E3　F48→E19　F68→E34
とセルごとに指定し貼付けたいのですが、
どうしたらよいのでしょうか？

前後にコードを入力し実行ができているので
できれば、出来る限りこのコードのままで返ることはできないでしょうか？

これでは無理・変だと指摘がありましたら宜しくお願い致します。

回答No.1

MSZ006

＞F32→E3　F48→E19　F68→E34
＞とセルごとに指定し貼付けたいのですが、

単純にセル範囲をそのように変更したものをコピー／挿入すればいいのでは？

Range("F32:F109").Select
Selection.Copy
’全社累計シート管理用E3～E80に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("E3:E80").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("元の表.xls").Activate
Range("２カ所目コピー元セル範囲").Select
Selection.Copy
’全社累計シート管理用２カ所目に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("２カ所目貼り付け先セル").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("元の表.xls").Activate
Range("３カ所目コピー元セル範囲").Select
Selection.Copy
’全社累計シート管理用２カ所目に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("３カ所目貼り付け先セル").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False