Use value in a cell to iterate and fill target Columns

[Logan_Noob]

Hi Every1,

I have got myself a little trouble..

The functionality of the code is quite simple but i being a beginner am not able to do it .

I have 3 columns

1. Number of iterations
2. Data to be repeated
3. Target block

I am trying to fetch the value of each cell in the 1 st column as the counter for the loop and then use it to repeatedly print the data of the 2 nd column into the target that is the 3 rd column.

[TABLE="class: grid, width: 100"]
<tbody>[TR]
[TD]NumberofIteration[/TD]
[TD]DataToBeRepeated(String)[/TD]
[TD]Target Block[/TD]
[TD]Result[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]L01[/TD]
[TD][/TD]
[TD]L01[/TD]
[/TR]
[TR]
[TD]0[/TD]
[TD]L02[/TD]
[TD][/TD]
[TD]0[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]L02[/TD]
[TD][/TD]
[TD]L02[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]L01[/TD]
[TD][/TD]
[TD]L02[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]L01[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]L01[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]L01[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]L01[/TD]
[/TR]
</tbody>[/TABLE]

Your help is highly appreciated .Thanx in advance

Regards
Logan_Noob

 

[VoG]

Try

Sub block()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("A" & i).Value > 0 Then
        Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(Range("A" & i).Value).Value = Range("B" & i).Value
    Else
        Range("C" & Rows.Count).End(xlUp).Offset(1).Value = 0
    End If
Next i
End Sub

 

[Logan_Noob]

Thanx a tonn VOG... Your Code works like a charm....