Yeah, I know. Security around here is getting slack ;)

The closest I've come is:

Option Explicit

Sub Macro1()
Dim Rng1 As Excel.Range
Dim c1 As Excel.Range

Set Rng1 = Workbooks("ABCD").Worksheets(1).Range("A1,C1,E1,G1 ")
For Each c1 In Rng1
Workbooks("Book1").Worksheets(1).Range(c1.Address) = c1.Value
Next c1

Set Rng1 = Workbooks("Book1").Worksheets(1).UsedRange
Rng1.Copy

Set Rng1 = Workbooks("ABCD").Worksheets(1).Range("A2")
Rng1.PasteSpecial skipblanks:=True
End Sub

Basically, it copies out specific cells, preserving spacing, to an
intermediate space, then copies them back preserving the spacing to
any starting cell you wish. Unfortunately, I can't mix them up
without just copying cell by cell. Even this gives you more overhead,
than cell by cell, I believe.

-Bryan