Need macro for Copying data

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

This will move the Activecell to the bottom of the range assuming there is data in every row cell in column A where you already have data. If not, there is some extra steps to make.

This will dynamically select everything except the headers from the from workbook.

Range("A1").CurrentRegion.Select

This will copy all the data but the header:

Range("A1").CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Copy

This will Copy the code in a dynamic region with the first row of data.

Range("A1").CurrentRegion.Copy

Thanks,

Gregg