VBA 同一ブック内の別シートにコピーアンドペーストができない

Question

エクセルVBAでデータ集計用のツールを作っています。
RawdataシートからUU_Countシートに転記をしたいと思って以下のコードを書いたのですがなぜかエラーがでます。
環境はexcel for macです。

Sub uucount()
Dim sh1
Dim sh2
Dim rownum
Set sh1 = Worksheets("Rawdata")
Set sh2 = Worksheets("UU_Count")
rownum = sh1.Range("A1").End(xlDown).Row
sh2.Range(Cells(1, 1), Cells(2, 1)).Value = sh1.Range(Cells(1, 1), Cells(2, 1)).Value

End Sub

エラ〜メッセージは以下の通りです

アプリケーション定義またはオブジェクト定義のエラーです

Answer 1

たぶんこれだと思いますが。。。
Cellsにもどのシートなのかを書く必要があります。

sh2.Range(Cells(1, 1), Cells(2, 1)).Value = sh1.Range(Cells(1, 1), Cells(2, 1)).Value
↓
sh2.Range(sh2.Cells(1, 1), sh2.Cells(2, 1)).Value = sh1.Range(sh1.Cells(1, 1), sh1.Cells(2, 1)).Value

もっとシンプルに書けると思いますが、質問の本質ではないので割愛しております。

Comments

[KSimo]

こちらのコードだと確かにエラーは発生しませんね。。。
GASのノリでシートオブジェクトを指定→その中のレンジオブジェクトを指定という流れで書けばいいのかと思っていたのですがそうでないんですね。
VBA　別シート　コピー　で検索した際には最初私が質問内容に書いたコードでOKと書いていたのですが、、、
これはexcel for mac 特有のものなのでしょうか？

[ttyp03]

mac特有の話ではありません。
単にCellsと書くとアクティブシートが対象になります。
例えばシート1にマクロを置いているなら、Cellsの対象はシート1になります。
シート2のRangeでシート1の範囲を指定するのはおかしいですよね？
コードをシート1に置いているなら、右辺のsh1は省略できます。
sh2.Range(sh2.Cells(1, 1), sh2.Cells(2, 1)).Value = Range(Cells(1, 1), Cells(2, 1)).Value