Classer rapidement des coordonnées.

Option Explicit

Sub trier_XY()

    Dim dC
    Dim col As Long, dLX As Long, dLY As Long
    
    'Récupère le numéro de la dernière colonne non vide de la ligne 1
    dC = Cells(1, Columns.Count).End(xlToLeft).Column
    
    'Titres des deux colonnes du tableau
    Cells(5, 2) = "Colonne X"
    Cells(5, 3) = "Colonne Y"
    
    dLX = Range("B" & Rows.Count).End(xlUp).Row
    dLY = Range("C" & Rows.Count).End(xlUp).Row
    
    For col = 1 To dC
        'Si le contenu de la cellule commmence par "X"
        If Left(Cells(1, col), 1) = "X" Then
            Cells(dLX + 1, 2) = Cells(1, col)
            dLX = dLX + 1
        'Sinon
        Else
            Cells(dLY + 1, 3) = Cells(1, col)
            dLY = dLY + 1
        End If
    Next col

End Sub