title: Is there away to speed up this code even more?
body: <p>Is there a way to speed up this code even more? I have applied all the techniques I found on using arrays and avoiding using selects but it is not fast enough.</p>
  <p>Maybe there is something I could tweak or change and I didn't realize</p>
  <p>Thank you</p>
  <pre><code>Sub Operation()
  
  Dim t As Long
  Dim valor As Double
  Dim arr As Variant
  
  arr = Empty
  
  valor = Worksheets(&quot;Datos&quot;).Range(&quot;E24&quot;).Value
  
  
  arr = Hoja5.Cells(valor, &quot;A&quot;).CurrentRegion
  
  For t = 1 To UBound(arr, 1)
  
      
      Hoja7.Range(&quot;A9:IL9&quot;) = Application.WorksheetFunction.Index(arr, t, 0)
      arr(t, UBound(arr, 2)) = Hoja7.Cells(30, 2)
      Application.StatusBar = &quot;Simulación Nro &quot; &amp; t
      
  Next t
  
  Hoja5.Range(&quot;IP51&quot;).Resize(UBound(arr, 1), 1) = Application.WorksheetFunction.Index(arr, 0, UBound(arr, 2))
  
  
  Application.StatusBar = False
  
  End Sub
  </code></pre>