Solved: Moving row to another space

[Klartigue]

On the attached sheet, I would like to move the cash row in A6 and insert it above the total portfolio row in A63. The complicated part of this is that although the cash row will always be in A6, the portfolio row will be located anywhere based on different reports.

How do I write a macro to find the total portfolio line and know to move row A6 and insert it above that line?

Thanks for the great help!

[Bob Phillips]

[vba]

Public Sub ProcessData()
Dim Lastrow As Long

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Rows(6).Copy
.Rows(Lastrow).Insert
End With
End Sub[/vba]

[Klartigue]

Thank you!!