Codice VBA per formattazione celle

Buongiorno,
ho elaborato il seguente codice VBA per trasferire i dati acquisiti da apposito form su foglio excel.

Private Sub bttInserisci_Click()

Dim mese As String

Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = txtData.Value
ActiveCell.Value = Format(CDate(ActiveCell.Value))
ActiveCell.Offset(0, 1) = Month(txtData.Value)
ActiveCell.Offset(0, 1) = Format(txtData.Value, "mmmm")
mese = ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 1) = StrConv(mese, VbStrConv.vbProperCase)
ActiveCell.Offset(0, 2) = txtEntrate.Value
ActiveCell.Offset(0, 2).NumberFormat = Range("C3").NumberFormat
ActiveCell.Offset(0, 3) = txtUscite.Value
ActiveCell.Offset(0, 3).NumberFormat = Range("D3").NumberFormat
ActiveCell.Offset(0, 5) = txtDescrizione
ActiveCell.Offset(0, 6) = txtCodice

End Sub

Ho ottenuto ciò che volevo, ma sono impazzito per ottenere le formattazioni.
Me ne mancano ancora due:
1) Centrare nella cella le stringhe ottenute nella colonna B (istruzione ....offset(0,2) e nella colonna G (istruzione .....offset(0,6);
2) La proprietà NumberFormat delle colonne C ed E acquisisce correttamente il formato (Valuta) ma NON il colore della colonna (azzurro per C e rosso per D).
Mi aiutate a modificare il codice per ottenere il passo finale?
Saluti a tutti.

Ciao
per centrare una cella, nel tuo caso:

-ActiveCell.Offset(0, 2).HorizontalAlignment = xlCenter
(e così per l'altra cambiando il riferimento)

per assegnare il colore di provenienza:

-ActiveCell.Offset(0, 2).Interior.ColrIndex=3 (per il rosso - 8 azzurro)

saluti

Grazie mille Domenico,
perfettissimo per la centratura del testo.
Per il colore mi ero espresso male io: in effetti volevo colorare il testo e non il riempimento.
Ho sostituito "Font" a "Interior" ed è perfetto anche questo.
P.S.: mi ha dato errore al primo copia-incolla in quanto in Color mancava la seconda o.
Tutto risolto.
Ancora grazie.
Saluti

Ciao
bene per aver risolto. Per la "o" ho scritto a mano, quindi ci sta :)

saluti