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

Hi.

I have a code to filter data by an ActiveX textbox.
works well, but need a adatção.

I would use a button that when clicked, the line would be filtered cut and pasted into another tab.


Big File in: http://www.sendspace.com/file/nis5zh

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

thank you!