sto vedendo che nella tua macro "Crea_elenco2" ci sono molte incongruenze che non capisco, vedi lineee codice evidenziate

Sub crea_Elenco2()

Dim c As Range
Dim W As Worksheet
Dim Area As Range
Dim dato As String
Dim i As Integer
Dim Trovato As Boolean
Set W = Sheets("Foglio2")
W.Select
UR1 = W.Range("F" & Rows.Count).End(xlUp).Row
W.Range("F30:H30" & UR1).Clear
Set Area = W.Range("F5:F" & UR1)

For Each c In Area
    dato = c.Value
    i = 40
    Trovato = False
    While W.Cells(i, 6).Value <> "" And Not Trovato
        If W.Cells(i, 6).Value = dato Then
            Trovato = True
        End If
        i = i + 1
    Wend
    If Not Trovato Then
        W.Cells(i, 6).Value = dato
    End If
Next
W.Select
    W.Range("F30:H30" & UR1).Select
    Selection.Sort Key1:=Range("F5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
        W.Range("F5").Select

For RRF = 1 To W.Range("F" & Rows.Count).End(xlUp).Row
NT = W.Range("F" & RRF).Value
    For RR1 = 1 To UR1
    If NT = W.Range("F" & RR1).Value Then W.Range("H" & RRF).Value = W.Range("H" & RRF).Value + W.Range("H" & RR1).Value
    Next RR1
Next RRF

With Worksheets("foglio2").Range("F30:H35")
 .Font.Size = 12
 .Font.Bold = True
 Range("F30:H35").NumberFormat = "#,##0.00"
 .Cells(intRow, intCol).Borders.LineStyle = X1Double

With Range("F30:H35").Borders
    .LineStyle = xlContinuous
    .Weight = 2

End With
End With
End Sub

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?( Alan Turing)