Need to combine excel sheets but with selective columns

[daga.sachin120887]

Dear Guys,

I have a simple macro which combine multiple excel sheets and into a sheet name "combined". Now I want slight change in the macro. I want to combine only selective column in sheets. here is the macro coding.

[B][/Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
B]

I am attaching here excel workbook with name of "DOMIS". In that workbook I only want to combine column "A", "C", "D" and "M" that is Name, DO No., DO Amt. and Dealer.


Regards,

Sachin