How can I alter this code so it inserts a column after columns containing Teacher Judgement not before?
Sub inscols2()
Dim A As Range
Dim s As String
Set A = Rows(2).Find(what:="Teacher Judgement", after:=Cells(2, 1), LookIn:=xlValues, lookat:=xlPart, _...