Removing a line of data in a spreadsheet

[scrumpyjack]

I have this macro that finds a line of data that is annoted 'complete' and records the row of data in another worksheet called complete.
It works fine.
What I would like to do is once the line of data is transferred to the new sheet I would like the original line of data to be removed.
Can anyone help please
I tried to add a line to the macro but it didn't work
Thanks

Range("C" & Target.Row).Copy Sheets("COMPLETE").Range("B" & foundCase.Row)
            Range("G" & Target.Row).Copy Sheets("COMPLETE").Range("C" & foundCase.Row)
            Range("Z" & Target.Row).Copy Sheets("COMPLETE").Range("D" & foundCase.Row)
            Range("H" & Target.Row & ":U" & Target.Row).Copy Sheets("COMPLETE").Range("E" & foundCase.Row)
            Range("W" & Target.Row).Copy Sheets("COMPLETE").Range("S" & foundCase.Row)
            Range("AA" & Target.Row).Copy Sheets("COMPLETE").Range("T" & foundCase.Row)
            
        Else
             bottomA = Sheets("COMPLETE").Range("A" & Rows.Count).End(xlUp).Row
             Range("A" & Target.Row).Copy Sheets("COMPLETE").Range("A" & bottomA + 1)
              Range("C" & Target.Row).Copy Sheets("COMPLETE").Range("B" & bottomA + 1)
            Range("G" & Target.Row).Copy Sheets("COMPLETE").Range("C" & bottomA + 1)
            Range("Z" & Target.Row).Copy Sheets("COMPLETE").Range("D" & bottomA + 1)
            Range("H" & Target.Row & ":U" & Target.Row).Copy Sheets("COMPLETE").Range("E" & bottomA + 1)
            Range("W" & Target.Row).Copy Sheets("COMPLETE").Range("S" & bottomA + 1)
            Range("AA" & Target.Row).Copy Sheets("COMPLETE").Range("T" & bottomA + 1)
            Range(Target.Row).EntireRow.Delete
        End If
         ElseIf Target = "complete" Then
        bottomC = Sheets("SSAFADivFunds").Range("C" & Rows.Count).End(xlUp).Row
        Set foundCase = Sheets("SSAFADivFunds").Range("C2:C" & bottomC).Find(Target.Offset(0, -17), LookIn:=xlValues, LookAt:=xlWhole)
        If Not foundCase Is Nothing Then
        Range("A" & Target.Row).Copy Sheets("SSAFADivFunds").Range("A" & foundCase.Row)