Need everything in A column

[sksanjeev786]

Hi Team,

I have data from row1 to 100 from A to AQ column and I need everyting in Column A

A1 to A100 and then B1 to B100 data I need in A101 to following colurmn till AQ

1000​	1100​	1400​	1500​
1001​	1101​	1401​	1501​
1002​	1102​	1402​	1502​
1003​	1103​	1403​	1503​
1004​	1104​	1404​	1504​
1005​	1105​	1405​	1505​
1006​	1106​	1406​	1506​
1007​	1107​	1407​	1507​
1008​	1108​	1408​	1508​
1009​	1109​	1409​	1509​
1010​	1110​	1410​	1510​
1011​	1111​	1411​	1511​
1012​	1112​	1412​	1512​
1013​	1113​	1413​	1513​
1014​	1114​	1414​	1514​
1015​	1115​	1415​	1515​
1016​	1116​	1416​	1516​
1017​	1117​	1417​	1517​

 

[mohadin]

In this case

Sub test()
    Dim a: Dim i&
  a = Sheets("Sheet1").Cells(1).CurrentRegion
      For i = 1 To UBound(a, 2)
       Sheets("data").Cells((i - 1) * UBound(a) + 1, 1).Resize(UBound(a)) = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), i)
    Next i
    End With
End Sub

 

[sksanjeev786]

In this case

Sub test()
    Dim a: Dim i&
  a = Sheets("Sheet1").Cells(1).CurrentRegion
      For i = 1 To UBound(a, 2)
       Sheets("data").Cells((i - 1) * UBound(a) + 1, 1).Resize(UBound(a)) = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), i)
    Next i
    End With
End Sub

Hi Mohadin,

Yes, now i am able to run the macro

Thank you again for looking into this

and thank you TEAM for your support on this

 

[mohadin]

You are welcome
Glad we could help
Be happy and safe