Copying and Inserting Range of Rows After Last One Inserted

Hello. I'm in desperate need of some VBA help. I'm trying to copy a range of rows from above, clear the contents and insert the copied rows below. It works the first time, but then always inserts the new rows above all of the old ones. How do I get the rows being copied to be inserted at the end of the of the last range of rows copied? I also need to do this for columns. Below is code that I recorded. Please help.

Sub inserttest()
' inserttest Macro
    Rows("6:25").Select
    Selection.Copy
    Rows("26:26").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=15
    Range("C27:D27,C29,C31,C33,C35:H45,F31,F33").Select
    Range("F33").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub