Copying data from one workbook to other

Can some one help me to resolve below issue

I am pasting some part of code as it is not possible to past the entire code.



The code allows me to copy data from one workbook to another but while copying data i need to copy entire column because there are some blank cells in it if i dont use .entirecolumn the macro do not copy cells after the blank cell and while pasting the data into the other work book i need past it without heading.

Would be grateful if any one help me.



Windows("macro2.xlsm").Activate

Range(Range("M2"), Range("N2").End(xlDown)).EntireColumn.Select
Application.CutCopyMode = False
Selection.Copy
Windows("formula.xls").Activate
Range(Range("I2"), Range("J2").End(xlDown)).EntireColumn.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False