[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
If Target.Cells(1, 1).Column = 2 Then
If IsNumeric(Target.Cells(1, 1).Value) And Not IsEmpty(Target.Cells(1, 1).Offset(0, -1)) Then
For i = 0 To CLng(Target.Cells(1, 1).Value) - 1
Target.Cells(1, 1).Offset(i, 1).Value = Target.Cells(1, 1).Offset(0, -1).Value
Next
End If
End If
End Sub[/B][/COLOR]