Macro to duplicate rows with content

[Pontos]

I have a table like this:

Repetitons	Name	e-mail	Department	Task number
3	Bob	Bob@yahoo.com	OD	B.1.1
3	Mike	Mike@yahoo.com	RO	B.1.1
1	Ester	Ester@yahoo.com	SO	B.1.1
2	Tedy	Tedy@yahoo.com	SS	B.1.1
5	John	John@yahoo.com	RO	B.1.1
8	Joe	Joe@yahoo.com	SO	B.1.2
10	Michael	Michael@yahoo.com	OD	B.1.2
4	Steve	Steve@yahoo.com	SS	B.1.2
10	Billy	Billy@yahoo.com	SS	B.1.2

I need so many new rows as is the number in the A column.
And every value needs to be the same as the copied one.
Like this:

Repetitons	Name	e-mail	Department	Task number
3	Bob	Bob@yahoo.com	OD	B.1.1
3	Bob	Bob@yahoo.com	OD	B.1.1
3	Bob	Bob@yahoo.com	OD	B.1.1
3	Mike	Mike@yahoo.com	RO	B.1.1
3	Mike	Mike@yahoo.com	RO	B.1.1
3	Mike	Mike@yahoo.com	RO	B.1.1
1	Ester	Ester@yahoo.com	SO	B.1.1
2	Tedy	Tedy@yahoo.com	SS	B.1.1
2	Tedy	Tedy@yahoo.com	SS	B.1.1
…

 

[My Aswer Is This]

Are we looking at column A with Repetitons ?
This script assumes that:
Try this:

Sub New_Insert_Rows()
'Modified  6/24/2022  1:24:21 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Dim ans As Long
   
    For i = Lastrow To 2 Step -1
        ans = Cells(i, 1).Value
        Rows(i).Offset(1).Resize(ans - 1).Insert shift:=xlDown
        Rows(i).Resize(ans).FillDown
    Next
MsgBox "Done"
Application.ScreenUpdating = True
End Sub

 

[LazyBug]

Sub RowsCountByValue()
Dim i&, fr&, lr&, cn&, r&
cn = 1: fr = 1
lr = Cells(Rows.Count, "A").End(3).Row
    For r = lr To fr Step -1
        If IsNumeric(Cells(r, cn)) Then i = CLng(Cells(r, cn))
        If i >= 2 Then
            Rows(r).Copy
            Rows(r + 1).Resize(i - 1).Insert
        End If
    Next r
Application.CutCopyMode = 0
End Sub

 

[Pontos]

Thanks - works ike a charm.

 

[My Aswer Is This]

Thanks - works ike a charm.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.