cum sa ... Copiati un rind intr-un nou sheet, la sfirsit

Public Sub Copiaza(GotoNewSheet as string)

Dim GotoNewSheet As String
Dim i As Integer
i = ActiveCell.Row
Dim rangeToCopy As Range

Set rangeToCopy = Rows(i & ":" & i) 'selecteaza tot rindul

Dim r As Range
Set r = Sheets(GotoNewSheet).UsedRange

Sheets(GotoNewSheet).Select
Sheets(GotoNewSheet).Range("A" & (r.Rows.Count + 1)).Select
rangeToCopy.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

end sub