Cut and Paste row range based on active cell condition to another sheet

Hi,

I would like a vba code to cut the current row range based on the active cell if the user select "Yes". The cell is a dropdown with "Yes or No". The user would then be able to paste to a different sheet called "Complete".

I got this code but stuck. If anyone could help I appreciated it.

Public Sub CopyCurrent()
  If Application.IsText(ActiveCell.Value) = "Yes" Then

Rows(ActiveCell.Row).Select

 Else
 End If
End Sub

See my attached file.

thanks
Hugh