I just remembered, you wanted to copy columns B to M. Use this code instead
of what I posted...

Sheets("Sheet1").Select
Cells(Rows.Count, "A").End(xlUp).Select
Selection.Offset(0, 1).Resize(1, 12).Copy

or you could do it this way if you wanted to see the column letters...

Sheets("Sheet1").Select
Cells(Rows.Count, "A").End(xlUp).Select
Intersect(ActiveCell.EntireRow, Range("B:M")).Copy

--
Rick (MVP - Excel)


"Rick Rothstein" wrote in message
...
Try it this way...

Sheets("Sheet1").Select
Cells(Rows.Count, "A").End(xlUp).Select
Selection.Copy
...etc...

--
Rick (MVP - Excel)


"James" wrote in message
...
Hi

I'm trying to write some code so as that I can copy the last row in a
sheet.
Each day a new row is added so I need it to find the new row each day. I
have
written the below however although it keeps copying row 46 and not the
last
one! Any thoughts??

Sheets("Sheet1").Select
Range("A1").Select
Selection.End(xlDown).Select
Range("B46:M46").Select
Selection.Copy


--
James.