Sub Currently()
Dim ws As Worksheet
Set ws = Sheet1
ws.UsedRange.Clear
Dim multiArea As Range
Set multiArea = ws.Range("A1:B2, A3, B5:D5")
multiArea.Value2 = 1
Dim ba As New BetterArray
ba.FromExcelRange multiArea
ba.ToExcelRange ws.[F1] ' fills only A1:B2 area
End Sub
Sub FeatureRequest()
Dim ws As Worksheet
Set ws = Sheet1
ws.UsedRange.Clear
Dim multiArea As Range
Set multiArea = ws.Range("A1:B2, A3, B5:D5")
multiArea.Value2 = 1
Dim ba As New BetterArray
' Loops through rows of every area in a range
' and pushes row values as an array to BetterArray instance
Dim area As Range, row As Range, i As Long, arr() As Variant
For Each area In multiArea.Areas
For Each row In area.rows
If row.Cells.Count = 1 Then
arr = Array(row.Value2)
Else
ReDim arr(1 To row.Cells.Count)
For i = 1 To row.Cells.Count
arr(i) = row.Value2(1, i)
Next
End If
ba.Push arr
Next
Next
ba.ToExcelRange ws.[F1]
End Sub