データが入力されてる最終行を取得する

自動で取得できるそうです。

全行選択とか、恥ずかしいそうです。

Dim LastRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To LastRow

何かに代入 = Sheets("シート名").Range("A" & i)

Next