Macro - Complex Concatenate

Hello, try running this macro. I assume you know how to put it into a module.

Sub FindAndConcatenate()
    Dim i, RateYrExpCol, ScaleCol As Long
    For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        Select Case True
            Case Cells(1, i).Value Like "*Rate your exp*"
                RateYrExpCol = i
            Case Cells(1, i).Value Like "*On a scale*"
                ScaleCol = i
        End Select
    Next
    If RateYrExpCol = 0 Or ScaleCol = 0 Then
        MsgBox "Couldn't find all columns!"
        Exit Sub
    End If
    With Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
        .Value = "Rating - ALL"
        With .Offset(1).Resize(Range("A1").CurrentRegion.Rows.Count - 1)
            .Formula = "=" & Cells(.Row, RateYrExpCol).Address(0, 0) & "&" & Cells(.Row, ScaleCol).Address(0, 0)
            .Value = .Value
        End With
    End With
End Sub