VBA to Update Value in Colum J, based on Value in Column F, only if Column J cell is empty

[ssylvester26]

I'm trying to come up with a VBA code that will update a cell in column J, based on what value is in column F. But only if the cell in Column J is empty. So far I have this...

Screen Shot Of Excel

My VBA Code so far...

Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Not Intersect(Range("F:F"), Target) Is Nothing Then
For Each Rng In Intersect(Range("F:F"), Target)
Select Case Rng.Value
Case "Crating", "Glass Staging", "Logistics", "MFG Support Plant", "PT Support", "RMI", "Support", "Warehouse", "Yard"
Rng.Offset(0, 4).Value = "Indirect Hours"
Case Else
End Select
Next Rng
End If
End Sub

My only issue is that I need to fix the VBA so it doesn't over write the value in Column J if there already is something inputted by the user.

 

[johnnyL]

How about replacing:

            Rng.Offset(0, 4).Value = "Indirect Hours"

with:

            If Rng.Offset(0, 4).Value = vbNullString Then Rng.Offset(0, 4).Value = "Indirect Hours"

 

[ssylvester26]

Thank you Johnny, I was clearly over thinking it. This worked perfect!!

 

[johnnyL]

Glad to help.