Help fix the code Error Out of memory when Variable A >=600,000

[Excelpromax123]

Hi guys!. I have used the code below to filter data from Sheet data , At variable A (cell M5 ) when the value is >=560,000, the code still runs 4 5 times, then runs again, shows Out of memory error, And gives an error at the line
sArr = Sheets("aaa").Range("AA1:AQ" & a).Value . Ask people to correct the code or switch to a new algorithm so that there is no Out of memory error. I sincerely thank

Sub abcd()
Application.ScreenUpdating = False
On Error Resume Next
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Col As Long, a As Long, Dk1 As String, xx As Long
a = Range("m5").Value
Dk1 = Range("a2").Value
[B]sArr = Sheets("aaa").Range("AA1:AQ" & a).Value[/B]
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 19)
For I = 1 To R
    If (UCase(sArr(I, 9)) = UCase(Dk1) Or UCase(sArr(I, 9)) Like UCase(Dk1) & "-*") Then
        K = K + 1
        dArr(K, 1) = sArr(I, 2) & " x " & sArr(I, 9)
            For Col = 2 To 18
                dArr(K, Col) = sArr(I, Col - 1)
            Next Col
        dArr(K, 19) = sArr(I, 2) & " x " & sArr(I, 9)
    End If
Next I
Range("R2:BC260000").ClearContents
Range("R2").Resize(K, 19) = dArr
Application.ScreenUpdating = True

End Sub

 

[DanteAmor]

I have no problem with 600,000 even tested with a million and it works.
2 recommendations: remove the On Error statement and at the end of the code Save the workbook to free up memory.

Try:

Sub abcd()
  Dim sArr(), dArr()
  Dim i As Long, K As Long, R As Long, Col As Long, a As Long
  Dim Dk1 As String
  
  Application.ScreenUpdating = False
  a = Range("m5").Value
  Dk1 = Range("a2").Value
  sArr = Sheets("aaa").Range("AA1:AQ" & a).Value
  R = UBound(sArr)
  ReDim dArr(1 To R, 1 To 19)
  For i = 1 To R
    If (UCase(sArr(i, 9)) = UCase(Dk1) Or UCase(sArr(i, 9)) Like UCase(Dk1) & "-*") Then
      K = K + 1
      dArr(K, 1) = sArr(i, 2) & " x " & sArr(i, 9)
      For Col = 2 To 18
        dArr(K, Col) = sArr(i, Col - 1)
      Next Col
      dArr(K, 19) = sArr(i, 2) & " x " & sArr(i, 9)
    End If
  Next i
  
  Range("R2:BC260000").ClearContents
  Range("R2").Resize(K, 19) = dArr
  ThisWorkbook.Save
  Application.ScreenUpdating = True
End Sub