質問: tarwb.Worksheets(Worksheets.Count).Cells(Rows.Count, 1).End(xlUp).Row tarwb.ActiveSheet.Range("A" & M).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, operation:=multiply End Sub ``` ### 試したこと ### 補足情報(FW/ツールのバージョンなど) 以上です。説明等分かりずらくてすみません。 宜しくお願い致します。
回答: ``` tarwb.ActiveSheet.Range("A" & M).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, operation:=multiply ``` 貼り付け先がアクティブシートになっています。