Az End Sub elé még tedd be:

    For sor = 2 To ActiveSheet.UsedRange.Rows.Count
        Cells(sor, 1).Select
        oszlop = Selection.End(xlToRight).Column
        Cells(sor, 2) = Cells(sor, oszlop)
    Next

Ez a B oszlopba beírja a többi oszlop adatát. Utána a többi oszlopot törölheted.