Creating a "Double Column" Report

Try this:

Option Explicit

Sub SplitRepX3(): Dim wm As Worksheet, wd As Worksheet
Dim P, Q, R, d As Long, c As Long
Set wm = Sheets("Master"): Set wd = Sheets("DoubleColumn")
R = wm.UsedRange: d = Int(UBound(R) + 4) / 2: c = UBound(R) - d

P = wm.Cells(1, 1).Resize(d, 4): Q = wm.Cells(d + 1, 1).Resize(c, 4)
wd.Cells(1, 1).Resize(d, 4) = P: wd.Cells(4, 8).Resize(c, 4) = Q

P = wm.Cells(1, 6).Resize(d, 1): Q = wm.Cells(d + 1, 6).Resize(c, 1)
wd.Cells(1, 5).Resize(d, 1) = P: wd.Cells(4, 12).Resize(c, 1) = Q

P = wm.Cells(1, 9).Resize(d, 1): Q = wm.Cells(d + 1, 9).Resize(c, 1)
wd.Cells(1, 6).Resize(d, 1) = P: wd.Cells(4, 13).Resize(c, 1) = Q


wd.Cells(1, 8).Resize(3, 6).Value = wd.Cells(1, 1).Resize(3, 6).Value
End Sub