Sub VPcleaning()
'
'
Sheets("Detailed Assessment").Select
Dim I As Long
With Sheets("Detailed Assessment")
.Activate
For I = 6 To 505
If .Cells(I, 19) = "" Then
.Cells(I, 19).FormulaR1C1 = "=IF(RC[-17]="""","""",VLOOKUP(RC[-17],Data!C[-18]:C[9],28,FALSE))"
End If
Next I
End With
End Sub