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
[TABLE="width: 174"]
<colgroup><col span="3"></colgroup><tbody>[TR]
[TD]Company [/TD]
[TD]From[/TD]
[TD]To[/TD]
[/TR]
[TR]
[TD]1000[/TD]
[TD]1000[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1039[/TD]
[TD]1039[/TD]
[TD]1041[/TD]
[/TR]
[TR]
[TD]1040[/TD]
[TD]1043[/TD]
[TD]1044[/TD]
[/TR]
[TR]
[TD]1041[/TD]
[TD]1044[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1043[/TD]
[TD]1046[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1044[/TD]
[TD]1053[/TD]
[TD]1056[/TD]
[/TR]
[TR]
[TD]1046[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1053[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1054[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1055[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1056[/TD]
[TD] [/TD]
[TD]


[/TD]
[/TR]
</tbody>[/TABLE]
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