adding range values to array

[Gary Keramidas]

what would be some options for adding only values in this range that are not
blank to the array?

arr = .Range("B12:B" & lRow).Value

 

[Gary Keramidas]

this is what i have right now:

For k = 12 To 33
If .Range("B" & k).Value > "" Then
l = l + 1
ReDim Preserve arr(1 To l)
arr(l) = .Range("B" & k).Value
End If
Next

 

[Gary Keramidas]

no need to reply, i did something different using 2 arrays.