is it possible to merge the to line in one

[mohadin]

Well, I have this piece of code
Is it possible to to populate the ranges from the array in one go rather than tow

               [ With Sheets(e)
                    x = 1
                    For Each myArea In .Columns(1).SpecialCells(2, 1).Areas
                        n = myArea.Count


                        myArea.Offset(, 1).Resize(n, 1).FormulaR1C1 = Application.IfError _
                                                                      (Application.Index(w, Evaluate("row(" & x & ":" & _
                                                                                                   x + n - 1 & ")"), Evaluate("column(" & [b1].Resize(, 1).Address & ")")), "")
                        myArea.Offset(, 3).Resize(n, 2).FormulaR1C1 = Application.IfError _
                                                                      (Application.Index(w, Evaluate("row(" & x & ":" & _
                                                                                                   x + n - 1 & ")"), Evaluate("column(" & [d1].Resize(, 2).Address & ")")), "")


                        x = x + 20
                    Next

                End With

Thank you in advance