Unicode+comma delimited VBA script

[WhySoSerious]

Hello, I have been creating simple macros in Excel before but now I have need for VBA script that would export sport results from excel table in comma delimited Unicode text file (later I just copy/paste it in the website and taking commas as dividers it creates table).
I have found this script, but I don't have the skills to create needed modifications.

Sub test()
  Dim txt As String, r As Range
  With Activesheet   
    For Each r In .Range("a1",.Range("a" & Rows.Count).End(xlUp))   
      With WorksheetFunction         
    txt = txt & vbCrLf & Join(.Transpose(.Transpose(r.Resize(,7).Value)),",")  
       End With   
Next
End With 
Open ThisWorkbook.Path & "\test.txt" For OutPut As #1    
Print #1, txt 
Close #1 
End Sub

What I need is output from columns A, B, C, AK, AL, AM and AN. Also, this script doesn't support Unicode. Is there possibility to tweak the code for my needs?

Thanks,
Harold.