Excel VBA copy shapes and paste in new worksheet with blanks between each shape

[nkendri24]

Hello,

I have code that will make spaces between the shapes but I cant seem to get this code to select range on one page and paste it on another page with the blanks between the shapes.

The shapes have no names.

code:
Sub InsertBlankRows()

Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer

On Error Resume Next

Set WorkRng = Range("E1:E21").Select
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub