Salve

sto muovendo i primi passi con vba per excel però ho un problema con la formattazione dei numeri. Con il seguente codice:

codice:
Private Sub Aggiungi_Click()
    Worksheets("Movimenti CC").Activate
    Rows(10).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove
    Cells(10, 5).Formula = "=e11+d10"
    Cells(10, 2).Value = data
    Cells(10, 3).Value = descrizione
    Cells(10, 4).Value = importo
    Cells(10, 6).Value = note
    For i = 2 To 6
        Cells(11, i).Copy
        Cells(10, i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
    Unload Me
End Sub
il valore nella cella 10,4 non assume il formato corretto, inoltre non riesco neanche ad applicarlo manualmente all'interno di excel. Cosa sbaglio? Grazie