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)

[gmr4evr1]

Try changing the .Copy to .Cut

[scrumpyjack]

Thanks for the quick response
This is the line of code I entered
'Range(Target.Row).EntireRow.Delete'
Without it every thing works as it should. So why change 'copy' to 'cut' ?
Won't this effect the rest of the program?
Fred

[gmr4evr1]

Cut does the same as copy with one exception....after it pastes, the "cut" information is deleted, with "copy", the original information stays.
Without a sample of what you are working with, I can't say if it would effect the rest of the program or not.

[scrumpyjack]

Thanks that worked. See were you were coming from.

Right a relly basic excel question the sheet tabs at the bottom of the rotten workbook have disappeared and I can't get them back. Please tell me how

Thanks

[gmr4evr1]

Go to excel options (not sure how to get there with 2003)
Click Advanced
Scroll to Display options for this workbook
Make sure the box for Show sheet tabs is checked

[jeffreybrown]

Hi scrumpyjack,

Please apply code tags to post #1 before we can proceed!

[scrumpyjack]

Sorry about the code
Sorry but the sheet tab was already ticked
So the sheet tabs still are not showing.
Fred

[gmr4evr1]

Did they disappear after running the code with the .Cut option?

[scrumpyjack]

I don't think disappeared as such. Well to be honest I must have done something but it wasn't as a result of implementing the cut bit of code.

[gmr4evr1]

Fred,
Is it possible for you to attach the workbook....desensitized of course?

[scrumpyjack]

How do I do that?
Can I send it just to you?

[gmr4evr1]

In the window you are typing in, click the Image Icon (2 to the right of the Link [the one with the globe and chain] icon.
Click the From Computer tab
Click Basic Uploader (bottom right)
Click browse
Click the file you want to attach
Click Upload File(s)

[scrumpyjack]

The thing is it has personal details of clients etc and this can be seen.
I can't get into the main spread sheet as I cannot select sheets ie the sheet tabs are missing from the bottom of the page therefore not able to de-sensitised..
Can I email you the spread sheet?
Fred

[gmr4evr1]

Are you able to see the sheet(s), just not the tab(s)? If so, is it possible the other sheets are hidden or deleted?