Try adding "+1" after the .Row in your SpeccialCells line
eg.
Cells(Cells.SpecialCells(xlCellTypeLastCell).Row+1 , 1).Select
"goss " wrote in message
...
Hi ng
using xl 2003
My code is not pasting to next unused row
Should begin pasting row 9
Every time I run the code pastes further down and down
What am I doing wrong?
Sub Add_Employee()
Worksheets("mytools").Activate
Range("A1:J7").Select
With Range("A1:J7")
Copy
End With
Worksheets("Time_Entry").Activate
Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
---
Message posted from http://www.ExcelForum.com/