Insert Row every 13th row, then Concatenate

[Guest]

Hello,

Have a list in column A. Every 13th row, I'd like to add a row. Then in
that new row, I'd like to Concatenate the text in the first row with the text
in the 12th row (in cell A13). From there, it would step down another 13
rows, insert a row, and in that new cell concantenate the text from row 14
with that found in row 25.... and so on.

Help?! TIA

 

[Bob Phillips]

Public Sub Test()
Dim iLastrow As Long
Dim i As Long

With ActiveSheet
iLastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = (iLastrow \ 13) * 13 To 13 Step -13
.Rows(i + 1).Insert
.Cells(i + 1, "A").Value = .Cells(i - 12, "A").Value & .Cells(i,
"A").Value
Next i
End With
End Sub


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Perfect! Thanks a ton...........

Public Sub Test()
Dim iLastrow As Long
Dim i As Long

With ActiveSheet
iLastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = (iLastrow \ 13) * 13 To 13 Step -13
.Rows(i + 1).Insert
.Cells(i + 1, "A").Value = .Cells(i - 12, "A").Value & .Cells(i,
"A").Value
Next i
End With
End Sub


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)