Macro to fill excel columns on condition

[Halley yenn]

Hello,
I have a excel with multiple columns my main goal is to fill column A and column C as per Column B.
For ex:
COLA COLB COLC
1 18484 1
2 9848893 1
3 1234 1
3 1234 2
3 1234 3
.
.

In this if the the value in COLB is same then the respected cell values in COLA should be same as mentioned above and COLC value should increment .I will have only COLB data where the macro shold fill COLA and COLC ...COLA should increment to 1 2 3....if any repeated value then that must be repeated...COLC should be 1 for diff values in COLB and should increment for the Same numbers in COLB.
My explanation may not be clear so I am attaching the sample excel screenshot, where in sheet 1 you can see the actual data and in sheet2 the desired output with the macro.
Kindly help me on this as the data will be in thousands of rows which is time consuming.
KR,
Halley

example sheet.xlsx
	A	B	C	D
1	orderkey	ID	order reference ID
2		10987
3		56843
4		6744521
5		89076213
6		89076213
7		89076213
8		89076213
9		986
10		73123
11		8761
12		17283
13		17283
14		17283
Sheet1

example sheet.xlsx
	A	B	C	D
1	orderkey	ID	order reference ID
2	1	10987	1
3	2	56843	1
4	3	6744521	1
5	4	89076213	1
6	4	89076213	2
7	4	89076213	3
8	4	89076213	4
9	5	986	1
10	6	73123	1
11	7	8761	1
12	8	17283	1
13	8	17283	2
14	8	17283	3
Sheet2

 

[earthworm]

Try this

=COUNTIF(B$2:B2,B2)

 

[Fluff]

How about

+Fluff 1.xlsm
	A	B	C
1	orderkey	ID	order reference ID
2	1	10987	1
3	2	56843	1
4	3	6744521	1
5	4	89076213	1
6	4	89076213	2
7	4	89076213	3
8	4	89076213	4
9	5	986	1
10	6	73123	1
11	7	8761	1
12	8	17283	1
13	8	17283	2
14	8	17283	3
Main

Cell Formulas
Range	Formula
A2:A14	A2	=IF(B2<>B1,MAX(A$1:A1)+1,A1)
C2:C14	C2	=COUNTIFS(B$2:B2,B2)

 

[Halley yenn]

=IF(B2<>B1,MAX(A$1:A1)+1,A1)

Hi,
Thanks for the response.
I tried the below code:
Dim c As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
For Each c In Range("A2:A" & Lastrow)
c.Value = "= IF(B2<>B1,MAX(A$1:A1)+1,A1)"
Next
Application.ScreenUpdating = True
End Sub

But it is filling all "1's" in Column A.
Can you please try once.

KR,
Halley

 

[Fluff]

Missed the fat that you wanted a macro, how about

Sub Halleyyenn()
   With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
      .Formula = "= IF(B2<>B1,MAX(A$1:A1)+1,A1)"
      .Offset(, 2).Formula = "=COUNTIFS(B$2:B2,B2)"
   End With
End Sub

 

[Halley yenn]

Sub Halleyyenn() With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row) .Formula = "= IF(B2<>B1,MAX(A$1:A1)+1,A1)" .Offset(, 2).Formula = "=COUNTIFS(B$2:B2,B2)" End With End Sub

Perfect!!!Thanks alot.

 

[Fluff]

You're welcome & thanks for the feedback.