VBA: repeat a formula a number of times

With my macro, like this:

Sub ab()

Const lREPT_COL As Long = 1
Const lVAL_COL As Long = 2
Const lSTART_ROW As Long = 1
Const lWRITE_COL As Long = 6
Const sWRITE_SHEET As String = "Sheet2"

Dim rngLoop As Range
Dim rngWrite As Range

Set rngLoop = Cells(lSTART_ROW, lREPT_COL)

While rngLoop.Value <> ""
  With Sheets(sWRITE_SHEET)
    Set rngWrite = .Cells(.Rows.Count, lWRITE_COL).End(xlUp)
  End With
  If rngWrite.Value <> "" Then
    Set rngWrite = rngWrite.Offset(1)
  End If
  Sheets(sWRITE_SHEET).Range(rngWrite, rngWrite.Offset(rngLoop.Value - 1)).Value = rngLoop.EntireRow.Cells(lVAL_COL)
  Set rngLoop = rngLoop.Offset(1)
Wend

End Sub