Doesn't matter (much) but I just noticed that I left a bit of unnecessary code when I was playing around

Set targetCell = Target '<<<<<<<<<<<<<<<<<<<<
Set baseCell = Cells(targetCell.Row, 1)