Rutina para celdas en negrita y una alineada a la derecha

Hice esto para negrita y una (B) alineada a la derecha

    With h2.Cells(u, "B")
        .value = h1.Cells(27, "E").value
        .Font.Bold = True
        .HorizontalAlignment = xlRight
        With h2.Cells(u, "c")
            .value = h1.Cells(27, "f").value
             .Font.Bold = True
        End With
    End With

Así que quiero tu analices, y corrección (si la hay) Si hay más sencillo, pues venga