include the data purge for Engineer Gantt and Tech Gantt similar to Location Gantt:
in the Sub SQL_data_to_Gantts()
code simular to what is used for the Location Gantt:
Sheets("Location Gantt").Activate lastRow = Sheets("Location Gantt").Application.WorksheetFunction.CountA(Range("A:A")) Sheets("Location Gantt").Range(Cells(2, 1), Cells(lastRow, 9)).Select Selection.ClearContents
include the data purge for Engineer Gantt and Tech Gantt similar to Location Gantt:
Sub SQL_data_to_Gantts()
Sheets("Location Gantt").Activate lastRow = Sheets("Location Gantt").Application.WorksheetFunction.CountA(Range("A:A")) Sheets("Location Gantt").Range(Cells(2, 1), Cells(lastRow, 9)).Select Selection.ClearContents