Fill series of sequential numbers in blocks of 2

VBA fil down block of 2 identical sequential numbners in column B starting at row 2 until last row of data in column c.

I have searched high and low for a logical approach at  this and I cant seem to find it anywhere.

I need to be able to fill column B cell B2 downwards until last row of data in column C.


Example below:


1
1
2
2
3
3
4
4
5
5


so forth until the last row of data in column C.

I have managed to get to the point i can do it sequentially but not how i want it to work.

Any help aprciated:

Lst = Range("C" & Rows.count).End(xlUp).Row - 1
With Range("B2")
    .Value = "1"
    .AutoFill Destination:=Range("B2").Resize(Lst), Type:=xlFillSeries
End With

Select allOpen in new window