Excel VBAで数値を上から順番に取得する方法

Question

前提・実現したいこと

Excel VBA　で、印刷処理をしようとしています。

シートA：印刷用　
シートB：データ

シートBのA列に入っている数値を上から順番に取得して
シートAのY1に入れたいです。

発生している問題・エラーメッセージ

1から、1.2.3.4…のようにデータ行数分まで代入することはできるのですが、
A1セルの数値、A2セルの数値、A3セルの数値…というふうに数値を取得する
方法がわかりません。

該当のソースコード

Sub 印刷()

Dim i

For i = 1 To (Worksheets("シートB").Cells(Rows.Count, 1).End(xlUp).Row)
Worksheets("シートA").Range("Y1").Value = i
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
IgnorePrintAreas:=False

Next i

End Sub

試したこと

調べてみましたが、混乱してきましたので質問させていただきました。

補足情報（FW/ツールのバージョンなど）

Comments

[m.ts10806]

BVA→VBA
正確に表記願います。

[mit.]

ご指摘ありがとうございます。

Answer 1

シートBのA列に入っている数値を上から順番に取得して
シートAのY1に入れたいです。

Dim wsA As WorkSheet
Set wsA = Worksheets("シートA")
Dim wsB As WorkSheet
Set wsB = Worksheets("シートB")

Dim i

For i = 1 To (wsB.Cells(Rows.Count, 1).End(xlUp).Row)
    waA.Range("Y1").Value = wsB.Cells(i,1).Value

    '印刷処理
Next i

Comments

[hatena19]

ありゃ、編集したはずなんですが、2重投稿になってる？

[mit.]

ご回答頂きありがとうございます。

Answer 2

シートBのA列に入っている数値を上から順番に取得して
シートAのY1に入れたいです。

Dim wsA As WorkSheet
Set wsA = Worksheets("シートA")
Dim wsB As WorkSheet
Set wsB = Worksheets("シートB")

Dim i

For i = 1 To wsB.Cells(Rows.Count, 1).End(xlUp).Row
    waA.Range("Y1").Value = wsB.Cells(i,1).Value

    '印刷処理
Next i

Comments

[mit.]

ご回答、編集いただきありがとうございます。

まず、上4行部分。
ワークシートを変数にすると式がスッキリするのですね。
勉強になります。

ご教示頂いたコードで試してみましたが、
シートAのY1が切り替わってくれません。

「waA.Range("Y1").Value = wsB.Cells(i,1).Value」の部分、
なるほど！と思いました。
RangeとCellsの使い方がよくわかっていないので
課題が発見できたと思います。

独学で、悶々としながらでしたが、
今回質問させていただいて、疑問を整理することができました。

もし、また良いアプローチがありましたら
引き続きご教示いただければありがたいです。
何卒、よろしくお願いいたします。

[mit.]

ご教示いただいたコードの通りで解決いたしました。
（実際のシート名を取り違えて入れていました。）

この度は、本当にありがとうございました。