Ciao a tutti ragazzi, avrei un piccolo problema.

Quando eseguo la macro allegata nella colonna H del foglio ordine rame viene modificata la formattazione in personalizzata, in particolare viene fuori una data, mentre essendo dei valori dovrebbe rimanere come numero.

Grazie a chi mi aiuterà

Sub SOMMA()
Dim rng As Range, r As Range
Dim j As Integer

Worksheets("Ordine Rame").Select
Range("L2").FormulaR1C1 = "=RC[1]+RC[2]"
Range("L2").AutoFill Destination:=Range("L2:L29"), Type:=xlFillDefault
Range("K2:K29").Value = Range("L2:L29").Value
Range("M2:M29").Value = Range("L2:L29").Value
        
Set r = Range("B35:BA35").Find(What:=Range("E11").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not r Is Nothing Then
    For j = 1 To Range("AM2").End(xlDown).Row - 1
        Cells(r.Row + j, r.Column) = Cells(r.Row + j, r.Column) + Range("AM" & j + 1)
    Next j
End If

With Sheets("PROVA CARICHI")
    Set rng = .Range("B35:BA35").Find(What:=.Range("B5").Value, LookIn:=xlValues, LookAt:=xlWhole) 'cerca la settimana
    rng.Offset(1, 0) = rng.Offset(1, 0) + .Range("H2")   'somma alla cella sottostante il valore
End With

With Sheets("PROVA CARICHI")
    Set rng = .Range("B35:BA35").Find(What:=.Range("B5").Value, LookIn:=xlValues, LookAt:=xlWhole) 'cerca la settimana
    rng.Offset(5, 0) = rng.Offset(5, 0) + .Range("N2")   'somma alla cella sottostante il valore
End With

With Sheets("PROVA CARICHI")
    Set rng = .Range("B35:BA35").Find(What:=.Range("B5").Value, LookIn:=xlValues, LookAt:=xlWhole) 'cerca la settimana
    rng.Offset(8, 0) = rng.Offset(8, 0) + .Range("O2")   'somma alla cella sottostante il valore
End With

With Sheets("PROVA CARICHI")
    Set rng = .Range("B35:BA35").Find(What:=.Range("B5").Value, LookIn:=xlValues, LookAt:=xlWhole) 'cerca la settimana
    rng.Offset(11, 0) = rng.Offset(11, 0) + .Range("P2")   'somma alla cella sottostante il valore
End With

With Sheets("PROVA CARICHI")
    Set rng = .Range("B35:BA35").Find(What:=.Range("B5").Value, LookIn:=xlValues, LookAt:=xlWhole) 'cerca la settimana
    rng.Offset(14, 0) = rng.Offset(14, 0) + .Range("Q2")   'somma alla cella sottostante il valore
End With
        
Call EsportaDati

Worksheets("MASCHERA RICERCA").Select
Range("A1").Select
MsgBox ("Quantità Filo Aggiunta")

Set rng = Nothing: Set r = Nothing

Range("r8") = Range("k6")

End Sub