Complete empty cells with a value

[nburaq]

Hi Gents,
I have a huge list which includes columns namely group and points. In group column there is always a value but in points column the value might not exists like value C and E in column group. If there is not any value in column points then a value needs to be written as "N/A". I tried to do it myself using IF ISBLANK function then it writes values to every empty cells. Thanks in advance for all your help. I attach mini sheet and screenshot.

Book1
	I
14
Sheet1

 

[nburaq]

How about:

 Sub Addvalues()
Dim i As Long, Lr As Long, K As String
Lr = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Lr
If Range("B" & i).Value = "Labor" Then K = Range("A" & i).Value
ElseIf Range("B" & i).Value = "Services"  OR Range("B" & i).Value = "Material"  Then
Range("A" & i).Value = K
End If
Next i
End Sub

I tried the code and it gave compile error: Else without If
I corrected to this way but still Material doesnt have order number

Sub Addvalues()
Dim i As Long, Lr As Long, K As String
Lr = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Lr
If Range("B" & i).Value = "Labor" Then
K = Range("A" & i).Value
ElseIf Range("B" & i).Value = "Services" Or Range("B" & i).Value = "Material" Then
Range("A" & i).Value = K
End If
Next i
End Sub

 

[maabadi]

Sorry my fault. Forgot Press One Enter:

Sub Addvalues()
Dim i As Long, Lr As Long, K As String
Lr = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Lr
If Range("B" & i).Value = "Labor" Then
K = Range("A" & i).Value
ElseIf Range("B" & i).Value = "Services" Or Range("B" & i).Value = "Material" Then
Range("A" & i).Value = K
End If
Next i
End Sub

 

[nburaq]

Sorry my fault. Forgot Press One Enter:

Sub Addvalues()
Dim i As Long, Lr As Long, K As String
Lr = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Lr
If Range("B" & i).Value = "Labor" Then
K = Range("A" & i).Value
ElseIf Range("B" & i).Value = "Services" Or Range("B" & i).Value = "Material" Then
Range("A" & i).Value = K
End If
Next i
End Sub

No worries already thankful for all your help! but this code is not working under this condition;

 

[maabadi]

I test with this data it working what is problem.
Check this code at immediate window & then Test code:

Application.EnableEvents = True

 

[nburaq]

I test with this data it working what is problem.
Check this code at immediate window & then Test code:

Application.EnableEvents = True

Thanks a lot! Everything works perfectly!

 

[maabadi]

You're Welcome & Thanks for Feedback.