Optimize Excel Code - Too many FOR NEXT Loops

This makes bit faster, however the problem is that you have too many cell formatting code.

    ReDim a(1 To UBound(a, 1) * 2, 1 To UBound(a, 2)): n = 0
    For Each e In dic
        For Each s In dic(e)
            w = dic(e)(s)
            For ii = 1 To UBound(w, 2)
                n = n + 1
                For i = 1 To UBound(w, 1) - 2
                    a(n, i) = w(i, ii)
                    If (a(n, i) >= sd) * (a(n, i) <= ed) Then
                        If x Is Nothing Then
                            Set x = Sheets("Aligned").Cells(n + 2, i)
                        Else
                            Set x = Union(x, Sheets("Aligned").Cells(n + 2, i))
                        End If
                    End If
                Next
            Next
        Next
    Next