Button click, cut and paste into another spreadsheet data that was filtered

Hi.

Private Sub TextBox1_LostFocus()
     FilterNow
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
     If KeyCode = Asc(vbCr) Then
         FilterNow
         Range("A1").Select
     End If
End Sub
Private Sub FilterNow()
     If Trim(TextBox1.Value) > vbNullString Then
         Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:=TextBox1.Value
     ElseIf ActiveSheet.AutoFilterMode Then
         Range("A1").CurrentRegion.AutoFilter
     End If
End Sub

When you enter the code in ActiveX Textbox.
A line will be filtered in the worksheet 'Devolução - Total & Parcial' I need a code that after filtering the line is re-cut to the worksheet 'Sheet1'