How to transfer the range to other range/location after calculation? Thanks.
VBA Code:
Sub sample()
Dim rng As Range
Dim r As Range
Dim i As Long
Dim arr() As Variant
Set rng = Application.Range("B2:D11")
ReDim arr(rng.Count)
For Each r In rng
i = i + 1
arr(i) = r + 1
Next
Cells(6, 7).Resize(10, 3) = arr() 'how to transfer?
Set rng = Nothing
Set arr = Nothing
End Sub