Move Only Selected Data Frm 1 Sheet 2 other Existin Workbooks 1st Avaliable Empty ROW

i need your help bro !

Sub CopySelectedMultiple()
Dim NextRow&, rng As Range
With Sheets(“Sheet2″)
For Each rng In Selection.Areas
On Error Resume Next
NextRow = .Cells.Find(What:=”*” _ , After:=.Range(“A1″), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row + 1
If Err 0 Then NextRow = 1
On Error Goto 0
rng.Copy .Cells(NextRow, 1)
Next rng
End With
End Sub

can anyone modify it to Move the Selected Data to another Existing WorkBook “Database.xls” sheet1 which already exist in MY documents, if the Database.xls is active ? or not…