One way:

Since you don't specify, I'll assume you want to copy the rows which are
selected:

Public Sub CopyOver()
With Selection.EntireRow
.Copy Destination:=Sheets("SP2").Range( _
"A" & Rows.Count).End(xlUp).Offset(1, 0)
.Delete
End With
End Sub


In article ,
madcat wrote:

I have a situation here and it goes like this

I have 2 data spreadsheet(SP). 1st SP is unapproved data and 2nd SP is
approved data.

1) How can i make the spreadsheet to copy unapproved data over to
approved data, 2nd SP and delete from 1st SP?

2) How can i add to the next line automatically if there are already
data in 2nd SP? I.e. Ln1 to Ln10, there are data. Thus, next data would
be Ln11.