Macro to copy an x number of times

[bmrsalgas]

I want to check on a sheet reference number and the amount of times that this reference number repeats it self on the datam (img01)

And after checking this copy the reference number and paste the x number of times that it repeats (img02)

Can anyone help me with this?

 

[D3allamerican07]

bmrsalgas,

As long as there are no duplicates in Column AB, then this will loop through each quantity in AC and correctly out put data in AG:AH. Let me know if this is what you needed.

Sub Test()

    For Each cell In ActiveSheet.Range("AC2:AC" & Range("AC" & Rows.Count).End(xlUp).Row)
        With ActiveSheet
            Reference = .Range("AB" & cell.Row).Value
            Quantity = .Range("AC" & cell.Row).Value
            
                For i = 1 To Quantity
                    LR = Range("AG" & Rows.Count).End(xlUp).Row
                    
                    .Range("AG" & LR + 1).Value = Reference
                    .Range("AH" & LR + 1).Value = Quantity
                Next
        End With
    Next cell
    
End Sub

 

[bmrsalgas]

thanks a lot it did the job.