VBA: Insert copied rows

[Gtasios4]

Hi All,

I am using the below vba code in my excel to insert copied rows, but I want to modify it a bit in order to insert a copied row (of row 5) below it and above the "TOTAL:" bar.

Sub INSERTCOPY()
With ActiveCell.EntireRow
.Copy
.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
On Error Resume Next
.Offset(1).SpecialCells(xlCellTypeConstants).Value = ""
Application.CutCopyMode = False
On Error GoTo 0
End With
End Sub
Something like?

For i = 5 To lastrow
If inarr(i, 1) <> "TOTAL:" Then ?

Thanks in advance

 

[Joe4]

Duplicate to: Change Event_Worksheet

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.