VBA Macro To Multiple Text Files Based On Headings On Worksheet

I have created an Profit&Loss excel sheet with all the accounts in column A and then the values for each month, January to December in column B to column K like this:

Column A...............Col B............Col C........Col D........Col E.....and so on
Account 1..............2222............58452........5255.........5844....
Account2................5.................45...............25...........458 ....

I've made a macro that creates a textfile and saves it on my desktop, but I get a text file with all the info in the same file, what I want is to get one text file for every month, that is text file number one(january) is: The heading info+column A+columnB

text file number two(February) is: The heading info+column A+columnC
text file number three(March) is: The heading info+column A+columnD and so on

In the heading info I have to state the period and then I need the macro to change this for every text file, that is for the january file it has to be "1 to 1", for february "2 to 2" and so on. As it is now it will always say "1 to 1" because that is the values I have entered.

Sub btnSkapaFil_Klicka()
Dim strAnv As String
Dim strBeloppJan As String
Dim strBeloppFeb As String
Dim strBeloppMars As String
Dim strBeloppApr As String
Dim strBeloppMaj As String
Dim strBeloppJun As String
Dim strBeloppJul As String
Dim strBeloppAug As String
Dim strBeloppSept As String
Dim strBeloppOkt As String
Dim strBeloppNov As String
Dim strBeloppDec As String
Dim strSavepath As String
Dim intRad As Integer
Dim intStartrad As Integer
Dim intSlutrad As Integer
Dim fs, a
strOrder = Range("I2")...............