VBAエラー対処「"Range"メソッドは失敗しました："_Global"オブジェクト」

Question

WorkSheet「イグアナ」のデータをコピーして
WorkSheet「全製品集合」にペーストするプログラムをVBAで書いています。

WorkSheet「全製品集合」には既にデータがあるので、データがある最終行を求め
その続きの行からWorkSheet「イグアナ」のデータをペーストしたいです。

以下のようなコードを書いたのですが、
「"Range"メソッドは失敗しました："_Global"オブジェクト」
というエラーが発生してしまいます。

どのように対処すべきでしょうか？ご教示お願いいたします。

Dim ALE As Long
Dim IGS As Long
Dim IG As Long

'ALEはデータの最終行。IGSはイグアナのデータペースト開始行

ALE = Worksheets("全製品集合").Cells(Rows.Count, 2).End(xlUp).Row
IGS = ALE + 1

Worksheets("イグアナ").Select

IG = Worksheets("イグアナ").Cells(Rows.Count, 2).End(xlUp).Row


Worksheets("イグアナ").Range(Cells(7, 2), Cells(IG, 3)).Select
Selection.Copy

Worksheets("全製品集合").Select

'↓この部分でエラーが発生します↓
Range(Cells(IGS, 1)).Select

ActiveSheet.Paste

Answer 1

こちらでいかがでしょうか。

Cells(IGS, 1).Select

Comments

[radames1000]

かぶってしまい申し訳ない。

[riko]

ご回答ありがとうございます。
上手くいきました！

Answer 2

Rangeは範囲選択ですので引数にもう一つCellsが必要になります。

    '↓この部分でエラーが発生します↓
    Cells(IGS, 1).Select

これで選択できます。

Comments

[riko]

ご回答ありがとうございます
上手くいきました！