Hi,
I'm getting compile error 'wrong number of argument or invalid property assignment' on the first line word 'range'.
   If Not Intersect(Target, 'Range'("g:h", "m:n", "s:t", "y:z", "ae:af", "ak:al", "aq:ar", "aw:ax", "bc:bd", "bf:bg")) Is Nothing Then
The code is:

Private Sub Worksheet_Change(ByVal Target As Range)

'CONCATENATE SUPERSCRIPT RED

    Dim x As Long
    Dim rngCell As Range
    If Not Intersect(Target, Columns("b:bh")) Is Nothing Then
        For Each rngCell In Cells(Target.Row, "b").Resize(, 60).Cells
            With rngCell
                If .Row >= 8 Then
                    If .Value Like "*[+]*" Then
                        'If .HasFormula Then .Formula = .Value
                        x = InStr(.Value, "+")
                        .Characters(x).Font.Superscript = True
                        .Characters(x).Font.ColorIndex = 3
                    End If
                End If
            End With
        Next rngCell
    End If
    
'CONCATENATE  AVERAGE + GRACE

Dim cell As Range

    Application.EnableEvents = False
    
   If Not Intersect(Target, Range("g:h", "m:n", "s:t", "y:z", "ae:af", "ak:al", "aq:ar", "aw:ax", "bc:bd", "bf:bg")) Is Nothing Then

        For Each cell In Intersect(Target, Range("g:h", "m:n", "s:t", "y:z", "ae:af", "ak:al", "aq:ar", "aw:ax", "bc:bd", "bf:bg"))
                                           With Cells(cell.Row, "i", "o", "u", "aa", "ag", "am", "as", "ay", "be", "bh")
                    .FormulaR1C1 = _
"=IF(RC[-2]="""","""",IF(RC[-1]="""",RC[-2],CONCATENATE(RC[-2],""+"",RC[-1])))"
                    .Value = .Value
                End With
                       Columns.AutoFit
        Next cell
    End If
    
Application.EnableEvents = True

End Sub
Any help will be appreciated.

Thanking you.