Insert rows anywhere in existing spreadsheet.

Try this

Sub Test()
Selection.Copy
Rows(Selection.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(Selection.Row + 2).Insert Shift:=xlDown
Cells(Selection.Row + 2, 1) = Cells(Selection.Row, 1)
Cells(Selection.Row + 2, 2) = "Con Sol"
End Sub