VBA Array

Sub Range()

  Dim arr As Variant
  
  arr =  sharr.Range("A2:D11").Value
  
  Dim i As Long , j As Long
  
  For i = LBound(arr,1) To UBound(arr,1)
      For j = LBound(arr,2) To UBound(arr,2)
      
         arr(i,j) = arr(i,j) * 10
       Next j
Next i

sharr.Range("A2:D11").Offset(0,6).Value = arr

End Sub