エクセル2000でマクロを作成するのに困っています。

質問

エクセル2000でマクロを作成するのに困っています。

↓やりたいこと
(1)データを一行コピーする
(2)別のファイルを開いて、データを値貼り付けする。
　※値を貼り付けるのは、空白のセルに。
（同じように下の列に値貼りつけを順次行い、データを作成する）
-----------------------------------------------------------------------------------------
Sub Macro1()
'
' Ａファイルの１行をＢファイルのＡ列が空欄の行へ貼りつけ'

'シートの選択'
Worksheets("Sheet3").Activate
'行を選択コピー'
Sheets("Sheet3").Rows("2:2").Select
Selection.Copy

'ファイルを開く'
Workbooks.Open Filename:="C:\Documents and Settings\hiro\デスクトップ\Book2.xls"

'ファイル選択'
Windows("Book2.xls").Activate

'シートを選択しA列が空欄のセルに貼りつけ'
Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

'ファイルオープン時のシートを選択'
Worksheets("Sheet1").Activate
'ファイルを閉じる'
ActiveWorkbook.Close SaveChanges:=True

'元ファイルに戻る'
Windows("100520_一覧.xls").Activate

End Sub
--------------------------------------------------------------------------------------------
2003ではうまくいきますが、会社のPCが2000のためか、下記文言でエラーがでます。

'シートを選択しA列が空欄のセルに貼りつけ'
Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

●エラー表示
　　４３８　プロパティまたはメソッドをサポートしてません。

どのように入力すればよいでしょうか。
マクロを今まで一度も作ったことがわからないので、本当にわかりません。

よろしくお願いいたします。

回答No.2

watabe007

値の転記なら
Workbooks.Open Filename:="C:\Documents and Settings\hiro\デスクトップ\Book2.xls"
With ActiveWorkbook.Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp)
　　.Offset(1).EntireRow.Value = ThisWorkbook.Worksheets("Sheet3").Rows(2).Value
End With
ActiveWorkbook.Close SaveChanges:=True
ThisWorkbook.Activate

回答No.1

sumer45

コピーではなく単に値の貼り付けではダメなのですか？

変数に値を格納して　貼り付け先セル=変数

Sub macro()

Dim atai As Variant
Dim Endrow As Long

atai=Thisworkbook.WorkSheets("Sheet3").Rows(2).Value
Workbooks.Open Filename:="C:\Documents and Settings\hiro\デスクトップ\Book2.xls"
Endrow=ActiveWorkbook.Range("a65536").End(Xlup).Row+1

ActiveWorkbook.Rows(Endrow).Value=atai

ActiveWorkbook.Close SaveChanges:=True

End Sub