Sub formatting()
For rcell = 1 To lrow
CharacterIndex = InStr(1, sourceSheet.Cells(rcell, Col_Western), "Delivery for Creative", vbBinaryCompare)
If CharacterIndex > 0 Then
On Error Resume Next
deliveryname = "CS"

With ThisWorkbook.Worksheets.add
.Name = deliveryname
sourceSheet.Range(sourceSheet.Cells(rcell, Col_Western), sourceSheet.Cells(lastrow, Col_phone).End(xlDown)).Copy .Range("A1")
Cells.Select
Selection.RowHeight = 50
Selection.ColumnWidth = 30
'Add Autofilter to Row above student details
Range("a8:e8").EntireRow.AutoFilter
End With
End If

Next rcell



For Each Grey_ws In ThisWorkbook.Worksheets
With Grey_ws
Call Grey_VALUE_AND_RANGE_ALL(Grey_ws)
'do nothing else
End With
Next Grey_ws

For Each Grey_ws In ThisWorkbook.Worksheets
With Grey_ws
'Add Complimentary Column
Call Add_Complimentary(Grey_ws)
End With
Next Grey_ws
end sub