TransferRangeDataAsArray

Public Function TransferRangeDataAsArray( _
    rngSource As Range, _
    rngTarget As Range, _
    Optional xlrvd As XlRangeValueDataType = xlRangeValueDefault _
) As Range
    Set TransferRangeDataAsArray = _
        rngTarget.Resize( _
            rngSource.Rows.Count, _
            rngSource.Columns.Count _
        )
    TransferRangeDataAsArray.Value( _
        xlrvd _
    ) = _
        rngSource.Value( _
            xlrvd _
        )
    End Function