Paste while maintaining cell spacing/blanks/location

Hi,Flynn
Try this.
Select yout disjointed range (Single column only) in the "InputBox", click OK . The Selection Values are inserted in another sheet with the original spacings.
The Inserted values will be in the same column as original selection.
NB:- Alter the Sheet Number in the last line of code to suit you.

Dim oSel, Ray, LastR, oMix, Ac, oData As Integer, oRes
Dim Found As Boolean
Dim rng As Range
 On Error Resume Next
    Set rng = Application.InputBox(prompt:= _
      "Please Select First Cell in Column for Alteration ", _
        Title:="Insert Brackets", Type:=8)

oSel = rng.Address
 Ray = Split(oSel, ",")
  LastR = Split(Ray(UBound(Ray)), "$")(2)
   Ac = Split(Ray(UBound(Ray)), "$")(1)

ReDim oRes(1 To LastR)

For oData = 1 To LastR
   Found = False
   
   For oMix = 0 To UBound(Ray)
         If Cells(oData, Ac).Address = Ray(oMix) Then
            oRes(oData) = Range(Ray(oMix)).Value
            Found = True
            Exit For
         End If
  Next oMix

   If Found = False Then
      oRes(oData) = ""
    End If

Next oData

Sheets("sheet14").Range(Ac & 1).Resize(LastR).Value = Application.Transpose(oRes)

Regards Mick

Hi,Flynn .
It appears I have not altered the "InputBox" Text in the code ,to suit the code function.
Ignore the Text instruction and select your Disjointed cells as previously stated.
Please amend the code text to suit as required.
Regards Mick