gs, thank you for answering,
I have tried the VBA code, but I need the same function as the VBA code
because I need colomn to colomn, one one goes to colomn. sample

Sub CopyCols()
With ActiveSheet
.Cells(1, 1).Resize(.UsedRange.Rows.Count, 3).Copy .Cells(1, "E")
End With 'ActiveSheet
End Sub

if the code you give is like copying = E1: H11 and paste it into A1


but what I want is the same as copying E1 to A1, E2 to A2, & F1 to b1, F2 to b2.

is there another solution for VBA?