VBA Trim Leading Spaces

Hi All

I have source data that contains leading spaces in some blank cells. I've adapted the below to try and remove them using an array, but instead it is wiping column A. Could you help tweak it please?

Many thanks!

Sub Trim_Cells_Array_Method()

Dim ArrIN() As Variant, ArrOut() As Variant
Dim lRows As Long, lCols As Long
Dim i As Long, j As Long

Set rng1 = ThisWorkbook.Sheets("OP").Range("A10:G1500")
ArrIN = rng1.Value

LR = rng1.Rows.Count
LC = rng1.Columns.Count

  ReDim ArrIN(1 To LR, 1 To LC)
  ReDim ArrOut(1 To LR, 1 To LC)

  For j = 1 To LC
  For i = 1 To LR
      ArrOut(i, j) = Trim(ArrIN(i, j))
  Next i
  Next j

  rng1.Value = ArrOut

End Sub