Add row under value thn copy data down into new row VBA

[cmschmitz24]

Hello,

I need help writing a code that will add a blank row underneath each unique value in column B.
Then in the blank row, copy/paste the data from the row above it.

Example

A2 00037924 B2 0 C2 CP
A3 00039761 B3 1 C3 AS

will look like

A2 00037924 B2 0 C2 CP
A3 00037924 B3 0 C3 CP
A4 00039761 B4 1 C4 AS
A5 00039761 B5 1 C5 AS

Thanks!

 

[mumps]

By "unique value" do you mean that all the values in column B are unique (no duplicates) or that there are duplicate values and you want one row added for each unique value? Does column B contain the 8 digit number?

 

[cmschmitz24]

There are no duplicates in column B

 

[Fluff]

If there are no duplicates in col B, do you simply want to create 2 rows for every row in the sheet?

 

[cmschmitz24]

If there are no duplicates in col B, do you simply want to create 2 rows for every row in the sheet?

Essentially - from row 2 to the last row in my data, create a duplicate row

 

[Fluff]

How about

Sub DuplicateRows()

   Dim Cnt As Long
   
   For Cnt = Range("A" & Rows.Count).End(xlUp).row To 2 Step -1
      Rows(Cnt + 1).Insert
      Rows(Cnt).Resize(2).FillDown
   Next Cnt
End Sub

 

[cmschmitz24]

How about

Sub DuplicateRows()

   Dim Cnt As Long
   
   For Cnt = Range("A" & Rows.Count).End(xlUp).row To 2 Step -1
      Rows(Cnt + 1).Insert
      Rows(Cnt).Resize(2).FillDown
   Next Cnt
End Sub

Works perfect. Thanks again, Fluff!

 

[Fluff]

Glad we could help & thanks for the feedback