Trying to make a macro to paste a selection at a certain cell on a different sheet and shift the cells below it down.

[Arcinna]

So I'm working on a macro to help a friend and the first part I need to make needs to copy a selection of cells like in the first picture and insert it in the cell directly below the cell that says "Date Received which would be cell "B14" and shift the cells below it down.

Sub Copy_Selection()

Dim SourceRange As Range

Dim DestinationRange As Range

Set SourceRange = Selection

Set DestinationRange = Worksheets("Report").Range("B14")

SourceRange.Copy DestinationRange.Insert



End Sub

I have this so far and I can get it to just copy and paste to the cell I want but I cannot figure out how to make it insert and shift the cells down, it just gives a "copy method of Range class failed" error when i try insert, and just replaces any cells already there if i don't use insert. It's probably a very simply fix I just can't think of it right now.

 

[6StringJazzer]

You can't put the copy and insert on the same line.

SourceRanege.Copy
DestinationRange.Insert Shift:=xlDown
Application.CutCopyMode = False