No ten na listu pak si otevřeš Microsoft Visual Basic CODE

Private Sub CommandButton1_Click()
Dim aLine As String
aFile = FreeFile
Open "C:\Users\marek\Desktop\pro\read.txt" For Input As #aFile
'If Not EOF(aFile) Then
    Line Input #aFile, aLine
    Cells(1, 1).Value = aLine
   MsgBox ("Reading Completed")
    
    

'End If
Close #aFile
End Sub

Private Sub CommandButton2_Click()
Worksheets("List1").Range("A1:S1") = Worksheets("List2").Range("A1:S1").Value
End Sub

Tam mám toto jako načíst soubor z TXT pak ho zpopírovat na list dva a pak nemám že mám udělat ze všech áček udělat béčka a ze včech céček udělat ýčka