csv virgül makro

[ruyaaaa]

Merhaba ekteki dosyada , virgülle ayrılmış veriler olduğu için excelde düzgün görüntülenmiyor. https://onunasilyaptim.blogspot.com/2016/11/excelde-csv-dosyasn-duzgun-goruntuleme.html linkte 1. yoldaki gibi yaptığımda istediğim şekilde görüntüleyebiliyorum.
bunu bir makro olarak kaydettiğimde şu kodları elde ettim. Fakat istediğim şey dosya açılırken bunları yapsın sonra kaydetmeden çıksın. Yani vürgüllü formatta kalsın.
Bunun için nasıl bir makro yazabilirim, Teşekkürler.
Sub csv()
'
' csv Makro
'

'
Range("A1").Select
End Sub
Sub commmo()
'
' commmo Makro
'
' Klavye Kýsayolu: Ctrl+Shift+C
'
Range("C4").Select
End Sub
Sub CSV_makro()
'
' CSV_makro Makro
'
' Klavye Kýsayolu: Ctrl+c
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
33, 1)), TrailingMinusNumbers:=True
End Sub