Sub SaveToTextFile()

Dim MyStr As String
Dim PageName As String
Dim FirstRow As Integer
Dim LastRow As Integer
Dim MyRow As Integer

PageName = "C:\textfile.txt"
FirstRow = 1
LastRow = 300

Open PageName For Output As #1

For MyRow = FirstRow To LastRow
    MyStr = ""
    MyStr = Cells(MyRow, 9).Value & ","
    MyStr = MyStr & Cells(MyRow, 3).Value & " " & Cells(MyRow, 8).Value & ","
    MyStr = MyStr & Cells(MyRow, 4).Value & " " & Cells(MyRow, 8).Value & ","
    MyStr = MyStr & Cells(MyRow, 6).Value & " " & Cells(MyRow, 8).Value & ","
    MyStr = MyStr & Cells(MyRow, 7).Value & " " & Cells(MyRow, 8).Value & ","
    
    Print #1, MyStr

Next
Close #1

End Sub