Separador de miles o como poner fórmula en celdas

Como podría hacer para que al importar datos desde archivos csv, los números no me lleguen así : 20.580000000000002, lo cual no me permite redondearlo.

Una solución es con esta fórmula =VALOR(SUSTITUIR(SUSTITUIR(B1;",";"");".";",")), cambia los puntos a comas, permitiendo poder redondear el numero, ahora lo que quisiera es que directamente con una macro pueda obtener el numero redondeado, para lo cual se me ocurre que se pueda insertar la fórmula en la celda c1.

Con la siguiente macro puedo importar archivos csv, me faltaría poder redondear los números.

Sub csv_Import()
Dim wsheet As Worksheet, file_mrf As String
Set wsheet = ActiveWorkbook.Sheets("hoja1")
file_mrf = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Provide Text or CSV File:")
With wsheet.QueryTables.Add(Connection:="TEXT;" & file_mrf, Destination:=wsheet.Range("a1"))
.Name = "6"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
'Call formato1
End Sub