Data manipulation in excel

Need someone to work with VBA within Excel to do the following: Import ascii text all columns set to text Set several columns to a calculated value Delete the header (1st row) Save file in XLS format Use a VBA program to write file into ASCII file End of? phase 1 of project Phase 2 Login into a secure site with username and password click on a button post? ASCII file from Phase 1 above? into browse window click on upload button. Watch for confirm message logout of secure site. ## Deliverables Here is the VBA code to write the file in ascii comma delimited. Attribute VB_Name = "Module1" Public Sub OutputQuotedCSV() Const QSTR As String = """" Dim myRecord As Range Dim myField As Range Dim nFileNum As Long Dim sOut As String nFileNum = FreeFile Open "L:\OUTPUT\[login to view URL]" For Output As #nFileNum For Each myRecord In Range("A1:A" & _ Range("A" & [login to view URL]).End(xlUp).Row) With myRecord For Each myField In Range(.Cells(1), _ Cells(.Row, 256).End(xlToLeft)) sOut = sOut & "," & QSTR & _ Replace([login to view URL], QSTR, QSTR & QSTR) & QSTR Next myField Print #nFileNum, Mid(sOut, 2) sOut = Empty End With Next myRecord Close #nFileNum End Sub