Take a look at this and see if you can modify it to suit your needs. I
you need more help I'll need more info I think. - Pikus

newRow = Worksheets("Sheet2").UsedRange.Row
Worksheets("Sheet2").UsedRange.Rows.Count

Workbooks("CopyFrom").Worksheets("Sheet1").Range(" A1:F1").Cop
destination:=Workbooks("CopyTo").Worksheets("Sheet 1").Cells(newRow, 1

--
Message posted from http://www.ExcelForum.com