If Intersect(Target, Columns("H:H")) Is Nothing Then Exit Sub
Range(Range("E" & Target.Row), Range("R" & Target.Row)).Copy _
Sheets(Target.Value).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
I'm using the above code to transfer data from a main sheet to another sheet based on industry sectors.
This is ok, except if an error is made at the data entry and you change the sector, the data is copied to the correct sheet, but the original data is still in the now wrong sheet.
Is there an addition I can make that would delete an entry in a sheet if the sector for that entry no longer matches the name of the sheet ?
An entry is made in the main sheet using sector Home.
So the Home sheet gets update with the details
Later that entry is changed in the main sheet to Business, and the Business sheet gets updated, but I'd like the entry in the Home sheet to be deleted.