I am trying to display the output as range (list)available instead of the list of available spots

Question

Dim A(0 To 100) \'Availability Array
For i = 0 To 20 \' Start cut and Pin
A(i) = 1 
Next
For j = 40 To 60 \'Handle Insert
A(j) = 1
Next
For k = 80 To 100 \'End cut and P