VBA Data Conversion (random printout -> CSV file)

Your code does not look bad overall. Here are my 2 cents:

1. To improve readability, I would split your procedure in sub procedures / functions (does not make a difference if this is the only function in the module, but makes a difference in larger projects). The main procedure could look like this for example (simplified):

   Sub main()
     openPlFile
     readPlFile
     writeCsvFile
     saveCsvFile
   End Sub
   

2. You could add some error handling logic:

   Right after your declarations:

   On Error GoTo error_handler
   

   And at the end of the code:

   Exit Sub
   error_handler:
     'code to handle the error for example:
     MsgBox "There was an error: " & Err.Description
   End Sub
   

3. If performance is an issue there are a few steps to improve the code:

   a. You can turn off ScreenUpdating and turn Calculation to manual (don't forget to turn them back on before exiting AND in the error_handler block if there is one).

   b. If you want to improve performance further, you could use arrays instead of reading from / writing to the spreadsheet directly in a loop (see http://www.avdf.com/apr98/art_ot003.html)

   c. If you want to improve performance even more, you could read and write the files directly without opening / creating workbooks.

   d. I generally avoid using Integer as VBA automatically translates them into Long. So declaring Longs instead of Integers is a slight performance gain (not so much in your case, but can be useful when declared in a loop for example)

Some pointers off the top of my head:

1. It's always good practice to have good variable names: i, j, and k aren't bad but they could be more explicit. (for example, i could be currentRowIndex)

2. "VRTX" would be better off as a string constant: Const S_VRTX As String = "VRTX"

3. I personally like to even out anything like this:

   Workbooks.OpenText Filename:=orgFilename, _
       Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
       xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
       Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
       Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True`
   

   to something like this:

   Workbooks.OpenText Filename:=orgFilename, _
                      Origin:=950, _
                      StartRow:=1, _
                      DataType:=xlDelimited, _
                      TextQualifier:= xlDoubleQuote, _ 
                      ConsecutiveDelimiter:=True, _
                      Tab:=True, _
                      Semicolon:=False, _
                      Comma:=False, _
                      Space:=True, _
                      Other:=False, _
                      FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
                      TrailingMinusNumbers:=True`
   

4. It might be good to check that you have the requisite amount of data (e.g. 5 rows, 4 columns) before accessing it - say you open a file without the right amount of data, it won't handle it well in almost any language.

5. Turn on Option Explicit and you'll find some things can tell you in advance how to improve themselves :)