Hi Fireburn,
Try this code and let me know how it works:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
If Target.Value = 0 Then Exit Sub
If Target.Value = vbNullString Then Exit Sub
x = Target.Value
Do
Range(Cells(Target.Row, "A"), Cells(Target.Row, "E")).Copy
Range(Cells(Target.Row + 1, "A"), Cells(Target.Row + 1, "E")).Insert Shift:=xlDown
x = x - 1
Loop Until x = 0
Application.CutCopyMode = False
End Sub
Best regards,
Trowa
For that use the following code:
Best regards,
Trowa
Thank you for always there to help me out. I owe you a beer :-)
It worked.
I have great respect for you, so it means a lot to me!