Attribute VB_Name = "Codes3"
Option Explicit

Sub Codes3()
    Dim c As Range, n%, i%, col
    col = Split("F H X Y AA AC AE AF AH AI AG AJ AK AL AM AN AO")
    Application.ScreenUpdating = False
    With Worksheets("DATA")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
        For i = 0 To UBound(col)
            For Each c In .Range(col(i) & 2).Resize(n)
                If InStr(1, c, ",") > 0 Then
                    c = Join(Split(c, ","), Chr(10))
                    c.WrapText = True
                End If
            Next c
        Next i
    End With
   
End Sub