Alinear, Negrita y Símbolo para sumatora

Hola, me gustaría que me ayudaran en este tema para alinear el texto a la derecha y poner ambas celdas en negrita (bold) ademas de colocar el signo de moneda
Se ve así: TOTAL 56,587.36
Debería quedar así: TOTAL $56,587.36
Copio mi macro que genere para realizar la acción.
Dim misDatos As Range
Dim miTotal As Range
Dim micol As Integer
micol = 3
Set misDatos = Range("f7").CurrentRegion
Set misDatos = _
misDatos.Offset(1, micol).Resize(misDatos.Rows.Count - 1, 1)
Set miTotal = misDatos.Rows(misDatos.Rows.Count + 2)
miTotal.Offset(0, -1) = "TOTAL"
miTotal = "=sum(" & misDatos.Columns(1).Address(True, False) & ")"