Thread: Macro to move row to another sheet and delete

Hey everyone,
I've been using the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 17 Then
  If Target = "YES" Then
    Application.EnableEvents = False
      nxtRow = Sheets("Closed Orders").Range("Q" & Rows.Count).End(xlUp).Row + 1
       Target.EntireRow.Copy _
        Destination:=Sheets("Closed Orders").Range("A" & nxtRow)
       Target.EntireRow.Delete
  End If
 End If
 Application.EnableEvents = True
End Sub

This works great but it relocates the entire row across all exisiting cells. I only need to relocate a certain range of columns along that row. Can the code posted above be rewritten to specify that range? Let me know if attaching a dummy workbook would explain better. Thank you all in advance for your help.

Yes, please attach your dummy file.

Use this -

 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 17 Then
  If Target = "YES" Then
    Application.EnableEvents = False
      nxtRow = Sheets("Closed Orders").Range("Q" & Rows.Count).End(xlUp).Row + 1
       range("C" & target.row & ":V" & target.row).Copy _
        Destination:=Sheets("Closed Orders").Range("A" & nxtRow)
       range("C" & target.row & ":V" & target.row).Delete
  End If
 End If
 Application.EnableEvents = True
End Sub