Question : macro question which columns is the data changing

Hi Experts

Is the edit 1 macro chnaging the 5 to 6 in column G or am i totally mistaken.....which column is it.

Sub Edit_1()
   
Application.ScreenUpdating = False
   
    Dim rngData As Range
    Dim lngIndex As Long
    Dim varData
    Set rngData = Intersect(Range("G:G"), ActiveSheet.UsedRange)
    varData = rngData.Value
    For lngIndex = LBound(varData, 1) To UBound(varData, 1)
        If Left(varData(lngIndex, 1), 1) = "6" Then
            varData(lngIndex, 1) = "5" & Mid(varData(lngIndex, 1), 2)
        End If
    Next lngIndex
    rngData.Value = varData

Application.ScreenUpdating = True
   
End Sub

Answer : macro question which columns is the data changing

It's changing 6 to 5 in column G.