That's fine, but can you tell me why this line is in your code?
Do Until ActiveCell.Offset(0, -1).Value = ""
If all we are checking is the Range D13 and changing it value depending if its blank or "HP-1", how do we effect cell C13?