Вставить данные из файла в excel

Private Sub CommandButton1_Click()
Open "C:/Users/temp/Desktop/1.txt" For Input As #1
Do While Not EOF(1)
i = 1
Line Input #1, stvar
If Left(stvar, 1) = UCase(Left(stvar, 1)) Then
Cells(i, 1) = stvar
Do While Not EOF(1)
i = 1 + 1
Line Input #1, stvar
If Left(stvar, 1) = LCase(Left(stvar, 1)) Then
Cells(i, 1) = stvar
End If
Loop
End If
Loop
Close #1
End Sub

Private Sub CommandButton1_Click()
    Open "C:/Users/temp/Desktop/1.txt" For Input As #1
          Do While Not EOF(1)
                Line Input #1, stvar
                If Left(stvar, 1) = LCase(Left(stvar, 1)) Then
                     i = i + 1
                    Cells(i, 1) = stvar
                End If
          Loop
    Close #1
End Sub

Private Sub CommandButton1_Click()
    Open "C:/Users/temp/Desktop/1.txt" For Input As #1
          Do While Not EOF(1)
                Line Input #1, stvar
                If Left(stvar, 1) = LCase(Left(stvar, 1)) Then
                    i = 1 + 1
                    Cells(i, 1) = stvar
                Else
                    j = j + 1
                    Cells(j, 2) = stvar
                End If
          Loop
    Close #1
End Sub