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