Need to copy cells after last used cell in same column based on the value of the cell in the adjacent column on the right

[Pandrade]

Hi,
I need to duplicate values in a column based on the value of the cell to the right of it, for example if the Quantity column is 1 then no values are duplicated, if the quantity is 2 then the cell to the left (the salary) is copied and pasted at the end of the salary column once, if the quantity is 3 then the salary is copied at the end of the salary column two times. In other words, if the quantity is 1, then the salary should only appear once in the salary column, if the quantity is 2, then the salary should appear twice in the salary column, if the quantity is 3, then the salary should appear for a total of three times in the salary column. Please help, there has to be a way to write VBA for this.

Salary Quantity
15,000 1
20,000 2
27,000 1
30,000 3
41,000 4

After running the macro the final result should be:
Salary Quantity
15,000 1
20,000 2
27,000 1
30,000 3
41,000 4
20,000
30,000
30,000
41,000
41,000
41,000

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Pandrade()
   Dim Cl As Range
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      If Cl.Offset(, 1).Value > 1 Then
         Cl.Copy Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1 * Cl.Offset(, 1) - 1)
      End If
   Next Cl
End Sub

 

[Pandrade]

Thanks for your reply. I tried the code but nothing happens. Below are the screenshots of what the data is like and what it should look like after the macro.

 

[Fluff]

That's because you never said where you data was, so I assumed it was in col A, which is pretty much standard practise.

Sub Pandrade()
   Dim Cl As Range
   For Each Cl In Range("N2", Range("N" & Rows.Count).End(xlUp))
      If Cl.Offset(, 1).Value > 1 Then
         Cl.Copy Range("N" & Rows.Count).End(xlUp).Offset(1).Resize(1 * Cl.Offset(, 1) - 1)
      End If
   Next Cl
End Sub

 

[Pandrade]

That's great! It works perfectly! Thank you so much. You made my day.

 

[Pandrade]

How can I get that macro to work on every other column in the worksheet, not just on column N?

 

[Fluff]

You have already asked that question here Have a macro that I need to work on every other column of my worksheet

Please do not duplicate your questions. Thanks