Scanning for shifted values in different columns

If interested in VBA:

Sub PositionLetters()
Dim colB As Variant, colC As Variant
Dim colBCnt As Long, colCCnt As Long
Dim colBArray(1 To 26) As String
Dim colCArray(1 To 26) As String
Dim x As Long, y As Long, z As Long
Dim fndCnt As Long
x = 1
For Each colB In Sheets(1).Range("B2:B27")
    colBArray(x) = colB.Value
    x = x + 1
Next colB
y = 1
For Each colC In Sheets(1).Range("C2:C27")
    colCArray(y) = colC.Value
    y = y + 1
Next colC
For x = 1 To 26
       y = 1
        If colCArray(x) <> colBArray(x) Then
            Do Until colCArray(y) = colBArray(x)
                y = y + 1
            Loop
            If y > x Then z = x - y
            If y < x Then z = x - y
            Set fndrng = Sheets(1).Range("C2:C27").Cells.Find(colCArray(x)).Offset(0, 1)
            fndrng.Value = z
        End If
Next x
End Sub