Private Sub Worksheet_Change(ByVal Target As Range) Dim mStep, NoR, x, y As Integer If Intersect(Target, Range("G3")) Is Nothing Then Exit Sub mStep = WorksheetFunction.CountA(Range("C3:E3")) NoR = Target.Value x = 6 Range("A6:A" & Rows.Count).ClearContents Do y = y + 1 Cells(x, "A").Value = y x = x + mStep NoR = NoR - 1 Loop Until NoR = 0 End Sub
DON'T MISS
There is no words to say congrats in this world to you!. because you are amazing! Keep Rocking!
Many congrats!
Note: This is exactly what I was expecting!
Regards,
Raj