help to create a Macro

[chippymark]

Hi all,
I need help to create a Macro which I can assign to a button which will achieve the following:
Column A already contains random numbers from zero to 100
Column B Contains a list of names
What I am trying to achieve is if there is a Number in column ‘A’ I want to insert the same number of X’s in the same Row starting at Column ‘C’
See below example:
……A……….B………..C………..D………..E…………F………..G………H…………I
1….0…… James
2....0…… Paul
3….3…….Mark…….X…………X…………X
4….5…….Jon……….X…………X…………X………….X………X
5….1…….Tom………X
6….0…….Mick
7….2…….Sam………X…………X
Any help will be greatly appreciated
Regards
Mark

 

[Sektor]

Sub FillData()

    Dim i As Long, j As Long, lastRow As Long
    
    lastRow = Range("A1").End(xlDown).Row
    
    For i = 1 To lastRow
        If Cells(i, 1) > 0 Then
            For j = 3 To Cells(i, 1) + 2
                Cells(i, j) = "X"
            Next
        End If
    Next

End Sub

 

[chippymark]

Sub FillData()

    Dim i As Long, j As Long, lastRow As Long
    
    lastRow = Range("A1").End(xlDown).Row
    
    For i = 1 To lastRow
        If Cells(i, 1) > 0 Then
            For j = 3 To Cells(i, 1) + 2
                Cells(i, j) = "X"
            Next
        End If
    Next

End Sub

Thank you so much... Excellent !!! did exactly what I was looking for.. Cheers )