Abrir archivos text, modificarlos y guardarlos como csv UTF-8

Hay alguna macro para aplique estos cambios a un archivo txt:

1. Que abra los archivos de una carpeta, los archivos están en txt

2. Que aplique estas modificaciones

Sub filtrito()
'
' filtrito Macro
'
' Acceso directo: CTRL+a
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(9, 1), Array(14, 1), Array(21, 1), Array(27, 1)), _
TrailingMinusNumbers:=True
Columns("A:E").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveCell.FormulaR1C1 = "Lon"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Lat"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Tmax"
Range("E1").Select
End Sub

3. Los guarde en formato csv utf-8