VBA 文字列をある列から指定分抜き出して、別の列に繰り返し反映させたい

VBA　

B列の2行目以降にある情報(数字の羅列14桁)を、AL列の2行目以降にleft関数などを
用いて数字の羅列を左から８桁で取り出して、B列の最終行分までAL列に反映させたいです。

ただ私が入力したコードですと文字列ではなく数字のカウントが繰り返しされてしまいます。
解決法がわからないのでご教授お願いいたします。
（＊問題のあるコードを記述しております）

Dim i As Long, k As String For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row k = i k = Left(i, 8) Range("AL" & k).Value = i Next