Sub es()
Dim t, t1(), v As Byte, x As Long, i As Long, c As Byte
t = Range("a2:e" & Cells(Rows.Count, 1).End(xlUp).Row)
ReDim t1(1 To UBound(t), 1 To 5)
For i = 1 To UBound(t)
x = x + 1: v = 1
For c = 1 To 5
If t(x, c) <> "]" Then t1(x, v) = t(x, c): v = v + 1
Next c: Next i
Range("a2:e" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
Range("a2:d" & x) = t1
End Sub