Copy And Paste Row By Cell Value Criteria

I am trying to copy and paste Row by cell value. It is working fine when I am copying row from one worksheet by comboBox value to other worksheet. But problem is after updating data when I want copy back by cell value, it is showing "Run-time error '1004'" - Application-defined or Object-defined error. the code below is working fine

Private Sub CommandButton1_Click()
Dim sfind As String
Dim cl As Range
'check for a value & show message
Sheet = "Data"
Sheets(Sheet).Select
Application. ScreenUpdating = False
If Me.userIDCombo.Value = "" Then 'the textbox in userform
Me.userIDCombo.SetFocus
MsgBox "Please enter a Name to Update."
' show message if no Name Selected
Exit Sub
Else
sfind = Me.userIDCombo.Value.........................