Macro en VB Recordatorio Vencimientos

Necesitaría que en dicha macro dos modificaciones de ser factible:
Primero: que las facturas que se encuentran en la columna "F" con la leyenda "PAGADO" se marquen con otro color distinto al actual.
Segundo: que si se encuentran "PAGADAS" se borren de la columna"K" la palabra "SE VENCE" y por consiguiente NO la sumen en el total, y aparezcan con el color actual.

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Range("H3:K6000").Select
Selection.ClearContents
Range("K3").Select

Dim uF As Long, uFv As Long
Dim celda As Range
Dim hoy As Date
Dim total As Double

uF = Range("C" & Rows.Count).End(xlUp).Row
uFv = Range("H" & Rows.Count).End(xlUp).Row + 1

Range("K3:K" & uF).ClearContents
Range("H3:I" & uFv).ClearContents

hoy = Date

For Each celda In Range("C3:C" & uF)
If hoy >= DateAdd("d", -3, celda) Then
uFv = Range("H" & Rows.Count).End(xlUp).Row + 1
celda.Offset(, 8) = "SE VENCE"
Cells(uFv, "H") = celda.Offset(, -1): Cells(uFv, "I") = celda.Offset(, 2)
total = total + celda.Offset(, 2)
End If
Next celda
If total > 0 Then
uFv = Range("H" & Rows.Count).End(xlUp).Row
suma = WorksheetFunction.Sum(Range("I3:I" & uFv))
Cells(uFv + 1, "H") = "Total"
Cells(uFv + 1, "I") = suma
MsgBox "Tiene facturas vencidas por un total de: " & total, vbCritical, "Facturas Vencidas"
End If

End Sub