Получение значения VBA

Question

Видимо, я пытаюсь получить значения из столбца b в Excel и отобразить каждое значение на отдельных листах .. начиная с листа5. Однако приведенный ниже код, кажется, начинается с индекса 13 вместо назначенного индекса 10. На моем листе 5 отображается значение 113, на листе 6 - 114 ... Как я могу решить эту проблему?

Sub InvoiceForm()
    Dim wks As Worksheet
    Dim i As Long
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim buffer As Long
    buffer = ws.Range("B29").Value    'Getting the number of rows exist for column b'
    Dim a As Long
    a = 10
    For Each wks In ThisWorkbook.Worksheets
        For i = 5 To (i + buffer - 1)
            If (a <= buffer + a - 1 And wks.CodeName = "Sheet" & i) Then
                With wks
                  .Range("J2") = ws.Range("B" & a).Value
                End With
             a = a + 1
             End If
        Next i
   Next wks
End Sub