Jul 13 2020 07:33 PM - edited Jul 13 2020 09:21 PM
Jul 14 2020 03:51 AM
Hello @Suma_shankar
Maybe you have more chances to get your answer in the Excel community here:
https://techcommunity.microsoft.com/t5/excel/ct-p/Excel_Cat
Good luck
Cheers
Rolf
#MCT #LearnWithRolf #TheCloud42
Jul 21 2020 09:38 AM
If you're still looking for a solution you could try this
Sub MySub()
ActiveCell.Columns("A:E").EntireColumn.Select
Selection.Copy
Windows("Book2").Activate
ActiveCell.Range("A1").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
End Sub