Você está perto
Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub
Você está usando o xldown, que está usando a última célula e indo até o final da planilha. Tente usar o xlup. Além disso - tente sair do hábito de usar selection
- geralmente nunca é necessário.