Copy selection and save as a .bat file

Hi guys,
Hoping someone can help me with this. I am needing to get some codes from Excel in several rows and save that as a batch file. Below is what I have so far. I need to be able to copy the selection put it in text file and save as file.bat format.

Sub MakeRows()

' Find the last row of data

LastRow = Range("A65536").End(xlUp).Row


' Autofill the formula for each row of HTAG numbers

Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & LastRow)
' Selects the range of rows
Range("B1:B" & LastRow).Select

***I need to save this in a file called file.bat***


End Sub

I greatly appreciate any help you can give me.

Thanks

Sub MakeRows()
    
    Dim FF As Integer, cell As Range
    Dim srtPath As String, strFile As String
    
    strPath = "C:\"         'File path
    strFile = "File.bat"    'File name
    
    With Range("B1", Range("A65536").End(xlUp).Offset(, 1))
        ' Autofill the formula for each row of HTAG numbers
        Range("B1").AutoFill Destination:=.Cells
        'Write Values to text file
        FF = FreeFile()
        Open strPath & strFile For Output As #FF
        For Each cell In .Cells
            Print #FF, cell.Text
        Next cell
        Close #FF
    End With
    
    MsgBox strPath & strFile, vbInformation, "HTAG Text Saved"
    
End Sub

AlphaFrog,
You are a lifesaver. This worked like a charm and I am grateful to you. You have no idea how much easier this makes my life. Thank you so much.