EXCEL VBA でエラーになってしまう

Question

お世話になります。
EXCELのVBAでわからないことがあります。
他のEXCELでリストを出力する時には、データ件数に関わらず、
正常にリストができるのですが、新たなリストではエラーになってしまいます。

関数は以下のようなものです。
Sub ページ作成()
WROWSIZE = Int((Sheets(2).Range("A1").End(xlDown).Row - 1) / 25)
If WROWSIZE > 0 Then
Range("ページ").AutoFill _
Destination:=Range("ページ", Range("ページ").Offset(50 * WROWSIZE, 0)), Type:=xlFillDefault
End If
End Sub

他のリストは全部うまくいくのですが、今回新規で作成しようとしている
ものは、下記のエラーが表示され、
IF文の中の２行が黄色になってしまいます。
'Range'メソッドは失敗しました:'_Global'オブジェクト

どなたか、ご教授をお願いできないでしょうか？

Answer 1

Range("ページ").AutoFill _
Destination:=Range("ページ", Range("ページ").Offset(50 * WROWSIZE, 0)), Type:=xlFillDefault

ここで使われているRangeのWorksheetが指定されていないからでしょうか。
以下の例を参考にWorksheetを指定したら、解決しませんかね。

' ThisWorkbook.ActiveSheetの場合
With ThisWorkbook.ActiveSheet
    .Range("ページ").AutoFill _
        Destination:=.Range("ページ", .Range("ページ").Offset(50 * WROWSIZE, 0)), _
        Type:=xlFillDefault
End With

' ThisWorkbook.Sheets(2)の場合
With ThisWorkbook.Sheets(2)
    .Range("ページ").AutoFill _
        Destination:=.Range("ページ", .Range("ページ").Offset(50 * WROWSIZE, 0)), _
        Type:=xlFillDefault
End With

Comments

[m24yama]

sa-yu様
回答ありがとうございます。感謝いたします。
Sheets(1）に対しての処理だったので、Sheets(1）したところ
質問させて頂いたエラーはでなくなったのですが、
今度は、
「この操作を行うには、すべての結合セルの同じサイズにする必要があります。」と出てしまいました。確かに、Sheets(1)は、2行のセル（B6とB7など）など、各列のセルを結合しているのですが、他のエクセルでは、
データ件数の応じて、行も増えるのです・・

[sa-yu]

AutoFillしようとしている範囲内に、結合したセルが含まれるということであってますかね。
その場合、「この操作を行うには、すべての結合セルの同じサイズにする必要があります。」と出るのはExcelの仕様です。
試しに、VBAではなく、手動でやってみると同じようなメッセージが出ると思います。
もし、どうしてもやりたい場合は、別シートでAutoFillをして、その結果をセル1ずつ見ながら、本来AutoFillしたかったセルに入れていくしかないと思います。