You should avoid using Copy and Paste - if something else takes the focus while you are doing that then the data will not be pasted into your work book. It's not a robust method and can take a long time.
You should convert the Range of data into an array, transpose the array and then set the value of an appropriate Range to that transposed array.
For example if you have a spreadsheet set up like this
Col A Col B
CTR 22/2/22
CTR 28/2/22
CTR 31/3/22
Use this code to change it to
Col A Col B Col C Col D
CTR 22/2/22 28/2/22 31/3/22
and to get rid of the rest of the data
Public Sub demo()
Dim lRows As Long
lRows = ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, "A").End(xlUp).Row
Dim arrDemo As Variant
arrDemo = ThisWorkbook.Sheets(1).Range("B1:B" & CStr(lRows)).Value
Dim arrTransposed As Variant
arrTransposed = Application.WorksheetFunction.Transpose(arrDemo)
Range("B1").Resize(1, lRows).Value = arrTransposed
ThisWorkbook.Sheets(1).Range("A2:B" & CStr(lRows)).ClearContents
End Sub