Macro for copying and pasting cells with data

[nadeem77]

Hi,

This is part of my macro

Windows("Sec 2.xlsx").Activate
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("New.xlsm").Activate
    Range("A1").End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste

I want to change 2nd row

Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select

So that it copies all the columns from A to F , till the last row which has data in it.(The last row with data in all the columns will be the same)

Also I want to change

 Range("A1").End(xlDown).Offset(1, 0).Select

So that Columns A to F are pasted to the first empty row in all columns from A to F.(The first empty row in all the columns will be the same)

PLEASE HELP.

Thanks