Dim v       As Variant
    Dim i       As Long
    Dim rng     As Excel.Range
    
    Set rng = Range("A3:F53")

    For i = 1 To rng.Columns.Count
        
        v = Application.Index(rng, 0, i)
        v = Application.Transpose(v)
        v = Join(v, ";")
        v = Replace(v, ";;", ";")
        v = Split(v, ";")
        v = Application.Transpose(v)
        
        rng.Columns(i).ClearContents
        rng.Columns(i).Cells(1, 1).Resize(UBound(v, 1), UBound(v, 2)).Value = v
        
    Next i