auto Deleting contents of certain columns when moving rows between sheets with one click

[R.Sloan]

I currently have 2 sheet layers "COMPLETE" & "IN PROGRESS"

When I change the status of a project on the "IN PROGRESS" sheet layer to 'complete' it moves the entire row to the top of the "COMPLETE" sheet layer.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng3 As Range
    Dim rng4 As Range
   Set rng3 = Target.EntireRow
    If Target.Column = 1 Then
        On Error GoTo endit
       Application.EnableEvents = False
        If Target.Value = "Complete" Then
    Worksheets("Complete").Rows("4").Insert xlDown
    Set rng4 = Worksheets("Complete").Range("A4")
            With rng3
                .Copy Destination:=rng4
               .Delete
            End With
        End If
    End If
endit:
    Application.EnableEvents = True
End Sub

I was wondering, how would I change the code so when it pastes the row onto the "COMPLETE" sheet layer, it only pastes cells from columns A:J ???

Quick example attached with more detailed explination...


ANY help is much appreciated!!!