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