I have been using below macros for placing 253 columns in alternate manner from two different sheets but this code works for very less range of data and as soon as data is more than lacs it doesn't give expected results. Please validate this code and let me know what am i missing is it range or something.
-------------------------------------------------
-------------------------------------------------
Code:
Option Explicit
Sub InsertColmn()
Dim lastCol As Long, i As Integer, mInt As Integer, mInsrt As Integer
Dim src, tgt As Worksheet
Sheets("Sheet1").Select
With Sheets("sheet1")
Range("A1").Select
Selection.End(xlToRight).Select
lastCol = ActiveCell.Column
'lastCol = Cells(1, .Columns.Count).End(xlToLeft).Column
mInsrt = 0
Range("A1").Select
For i = 1 To lastCol
mInsrt = mInsrt + 2
'For i = 1 To (lastCol + 1) Step 2
'For i = lastCol To 1 Step -1
.Columns(mInsrt).Insert
'.Columns(i + 1).Insert
Next
End With
i = 1
mInt = 0
Sheets("Sheet2").Select
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lastCol
mInt = mInt + 2
Sheets("Sheet2").Select
Sheets("Sheet2").Range(Columns(i), Columns(i)).Select
Selection.Copy
Sheets("Sheet1").Select
Cells(1, (mInt)).Select
'Range(Columns(i), Columns(i)).Select
ActiveSheet.Paste
Next
End Sub