Ignore blank cells while copying and pasting macro

attached is a sample worksheet.

The red bordered box shows how data appears in a spreadsheet.

I use the following macro to copy the data in the boxed range to a new workbook.

Sub Macro1()

    Application.Goto Reference:="New_Range2"
    Selection.SpecialCells(xlCellTypeVisible).Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Application.CutCopyMode = False
End Sub

I cannot figure out how to get the data to look like how I have it in the green bordered box.