Code is running slow any tips
Sub project1()
Dim g As Integer
Dim del_cancelreq As String
Dim del_cancel As String
Dim del_finished As String
Dim ER As Long
Dim TheDate As Date
Rows1 = Sheet1.Cells(1, 1).CurrentRegion.Rows.Count
ColS1 = Sheet1.Cells(1, 1).CurrentRegion.Columns.Count
ColS2 =...