VBA シートの指定範囲の操作を別シートに連動させる

Question

シート１にはA列からW列まで値や数式が入力されています。
そのシート１のA5からK91までの操作すべてをシート２に連動させたいです。
シート１の操作はセルの値を変えたり行を追加・削除したりなどがあります。
いいやり方があれば教えてください。
初心者なのでサンプルコードを教えていただけたら助かります。

追記
連動しなくても作業終了時に反映で大丈夫です。
列はA～Kで変わりませんが、行は５～何行になるかわかりません。
最終行のK列に合計という文字が入力されていますのでその行を最終行とします。
現状下記のコードでうまくいってません。

Sub 貼り付け()

Dim r As Long
r = Sheet(1).Columns(4).Find(What:="合        計", LookAt:=xlPart).Row
Range("A6", "Kr").Copy
Sheets(5).Range("A4").Select
ActiveSheets.Paste

End Sub

Comments

[yo_u]

まず、それはリアルタイムで連動しなければいけないのですか？
一通りの作業が終わった後にそれがシート２に反映されるのではだめなのですか？
行の追加や削除したときにA5～K91の範囲は変わるのですか？

[321Kurumins]

連動でなくても大丈夫です。作業終了時に反映で問題ありません。
行の追加や削除で範囲は変わります。
列はA～Kで変わりないですが行は５～？？となっています。

[yo_u]

A～K以外はシート１とシート２で違い、
その部分は変わらないようにするということなのでしょうか？

情報だけだと、シートのコピーするのが一番早い気がするのですが。

[321Kurumins]

コピペが一番早いですかね。
Excelに慣れてない方が使うのでなるべく簡単にしようと思っていたので
いろいろ思考錯誤していました。

[yo_u]

あくまで見えている情報だけではという意味です。
もう少し具体的な情報があればよい方法はあるかもしれません。

数式が入っているものをいじったり、
行の追加や削除の操作をできるレベルの人が使うのであれば、
シートのコピーくらいの操作はできるかなと思うのですが、
使う人のレベルの見極めも必要なのかなと。

[321Kurumins]

情報が不足していて申し訳ないです。

[yo_u]

自分で作れないくらいの初心者なら、
差しさわりのない範囲でやりたいことをできるだけ詳しく、
（ここでは丸投げだと嫌われる可能性は高いですが）
自分である程度やってみているのなら
やってみたソースなどを載せるとよい回答がつくかもですね。

Answer 1

たとえばこんな感じでどうでしょう。

    Dim moto As Worksheet, saki As Worksheet
    Set moto = Sheets("Sheet1")
    Set saki = Sheets("Sheet2")

    Dim lastRow As Long
    lastRow = moto.Range("D:D").Find(What:="合        計", LookAt:=xlPart).Row

    moto.Range("A5:K" & lastRow).Copy Destination:=saki.Range("A5")

Comments

[321Kurumins]

いつもありがとうございます。
助かりました！

Answer 2

いろいろ気になる部分はありますが。。。
とりあえず動かんだろう部分を修正。

Dim r As Long

Sheets(1).Columns(4).Select
r = Sheets(1).Columns(4).Find(What:="合        計", LookAt:=xlPart).Row
Range("A6", "K" & r).Select
Range("A6", "K" & r).Copy
Sheets(5).Select
Range("A4").Select
Range("A4").PasteSpecial Paste:=xlPasteAll

私はわからん時は、一個一個やることを上記のように分離して書いてみます。
あとは頑張ってみてください。

Comments

[321Kurumins]

回答ありがとうございます。
分離して書くとわかりやすいです。