エクセルで、テキストボックスへ入力した内容を、別シートへ一覧表にしたいです

質問

Sheet1には、テキストボックス３つ（txtName, txtAdr, txttel）、 日付入力
用にDTPicker1、あと登録ボタンを作りました。
これに入力しては、登録ボタンを押下し、別シートに一覧表が出来るようにし
たいです。
ネットで色々検索して、下のように、同じシートに一覧表が出来るまではうま
くいったのですが、別シートに一覧表を作成する方法がわからないので、教え
て下さいm(_ _)m 宜しくお願いします。

Private Sub cmdtouroku_Click()

Dim varRag As Variant
Dim myArray As Integer

varRag = Array(txtName, txtAdr, txtTel, DTPicker1)

Range("A65536").End(xlUp).Offset(1).Select
For myArray = 0 To 3
With Selection
.Offset(, myArray) = varRag(myArray)
End With
Next myArray

End Sub

回答No.1

noname#42041

Range("A65536").End(xlUp).Offset(1).Select
ここでシートを指定していないためにアクティブシートに書き込む形となっているのでは？
ということは、頭にシート名をつけてあげれば出来そうな気がします。
試していませんので間違っていたらごめんなさい。