Insert 2 columns from 1 sheet to another using VBA

[Sukanya]

This is the code i have worked with. It is showing the error 1004 that the copy area and paste area are not in the same size. Please help me with the issue?



Sheets("ESTemplate").Activate
Sheets("ESTemplate").Columns("A:B").Select
Selection.Copy
Sheets("Effort_Summary").Activate
For j = 2 To (4 + ((Sheets.Count - SheetCount) * 2))
MsgBox Sheets.Count

If Cells(3, j).Value = "Total" Then
ActiveSheet.Columns(j).Select
Selection.Insert Shift:=xlRight
Selection.Paste

ActiveSheet.Cells(3, j) = WKSheetName
Exit For

End If
Next j

 

[My Aswer Is This]

You need to tell us in words what your wanting to do:

I see you want to Copy Columns A & B

But what you want to do after that is not clear to me

 

[Sukanya]

I need to copy 2 columns from 1 excel sheet to another. Second Excel sheet containing a table.If the column value returns "Total" , then i need to insert 2 more columns.Always "Total" filed is the last entry of the table. I need to paste 1st excel sheet's copied data here..For Condition indicates the column size of the table

 

[Sukanya]

Solved the problem with a small change in the code.. Anyways thanks for your great time


For j = 2 To (4 + ((Sheets.Count - SheetCount) * 2))
If ActiveSheet.Cells(3, j).Value = "Total" Then
ActiveSheet.Columns(j).Insert Shift:=xlRight