Generate From and To Range from List of Numbers

[mamin123]

Hi
I like to generate Range FROM and TO Values in Column B and C from Column C as shown in below. What will be formula which will achieve same ?
Basically I want to create range for all Continuous values and create range in Column B/C

Col A Col B ColC

Company	From	To
1000	1000
1039	1039	1041
1040	1043	1044
1041	1044
1043	1046
1044	1053	1056
1046
1053
1054
1055
1056

<colgroup><col span="3"></colgroup><tbody>
</tbody>

Thanks

 

[JLGWhiz]

Try this

Sub t()
With ActiveSheet
    .Range("B2") = .Range("A2").Value
    For Each c In Range("A3", .Cells(Rows.Count, 1).End(xlUp))
        If c.Value - c.Offset(-1).Value > 1 Then
            .Cells(Rows.Count, 2).End(xlUp)(2) = c.Value
        ElseIf c.Value - c.Offset(-1).Value = 1 And (c.Offset(1).Value - c.Value > 1 Or c.Offset(1) = "") Then
            .Cells(Rows.Count, 2).End(xlUp).Offset(, 1) = c.Value
        End If
    Next
End With
End Sub

 

[mamin123]

It worked. You are GOD.

Thanks a Lot

 

[JLGWhiz]

It worked. You are GOD.

Thanks a Lot

You're welcome,
regards, JLG