Sub GetData()
'
' GetData Macro
' Import the Aging Data from the 130, 132, 138 and 211 accounts as well as the psr.prn Data for the current month
'

'
    ChDir _
        "I:\ACCOUNT\EXCEL\Account Reconciliations\2014-2015 Reconciliations\Support"
    Workbooks.OpenText Filename:= _
        "I:\ACCOUNT\EXCEL\Account Reconciliations\2014-2015 Reconciliations\Support\Export 130.tab" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
        (1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 1), Array(7, 1), Array(8 _
        , 1)), TrailingMinusNumbers:=True
    Cells.Select
    Selection.Copy
    Windows("Producer AR Summary_copy.xlsm").Activate
    Sheets("130").Select
    Cells.Select
    ActiveSheet.Paste
    Workbooks.OpenText Filename:= _
        "I:\ACCOUNT\EXCEL\Account Reconciliations\2014-2015 Reconciliations\Support\Export 132.tab" _
        , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
        Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 1), Array(7, 1), Array(8, 1)), _
        TrailingMinusNumbers:=True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Producer AR Summary_copy.xlsm").Activate
    Sheets("132").Select
    Cells.Select
    ActiveSheet.Paste
    Workbooks.OpenText Filename:= _
        "I:\ACCOUNT\EXCEL\Account Reconciliations\2014-2015 Reconciliations\Support\Export 138.tab" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
        (1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 1), Array(7, 1), Array(8 _
        , 1)), TrailingMinusNumbers:=True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Producer AR Summary_copy.xlsm").Activate
    Sheets("138").Select
    Cells.Select
    ActiveSheet.Paste
    Workbooks.OpenText Filename:= _
        "I:\ACCOUNT\EXCEL\Account Reconciliations\2014-2015 Reconciliations\Support\Export 211.tab" _
        , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
        Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 1), Array(7, 1), Array(8, 1)), _
        TrailingMinusNumbers:=True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Producer AR Summary_copy.xlsm").Activate
    Sheets("211").Select
    Cells.Select
    ActiveSheet.Paste
    ChDir "I:\Liqdir\2014_2015"
    Workbooks.OpenText Filename:="I:\Liqdir\2014_2015\psr.prn", Origin:=932, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
        3, 2), Array(4, 2), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
        , 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
        Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Producer AR Summary_copy.xlsm").Activate
    Sheets("psr.prn").Select
    Cells.Select
    ActiveSheet.Paste
    Windows("Export 130.tab").Activate
    ActiveWindow.Close
    Windows("Export 132.tab").Activate
    ActiveWindow.Close
    Windows("Export 138.tab").Activate
    ActiveWindow.Close
    Windows("Export 211.tab").Activate
    ActiveWindow.Close
    Windows("psr.prn").Activate
    ActiveWindow.Close

    Sheets("211").Activate
Dim LRow As Long, n As Long

LRow = Range("A" & Rows.Count).End(xlUp).Row
    For n = LRow To 1 Step -1
    If Cells(n, 8).Value = 0 Then Cells(n, 8).EntireRow.Delete
Next n


    Sheets("130").Activate
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "'13000"

  Dim R As Range
  'Only the column to the left (column A)
  Set R = Range("B1", Range("B" & Rows.Count).End(xlUp))
  Set R = R.Offset(, -1)
  R.FillDown


    Sheets("132").Activate
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "'13200"
  'Only the column to the left (column A)
  Set R = Range("B1", Range("B" & Rows.Count).End(xlUp))
  Set R = R.Offset(, -1)
  R.FillDown


    Sheets("138").Activate
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "'13800"
  'Only the column to the left (column A)
  Set R = Range("B1", Range("B" & Rows.Count).End(xlUp))
  Set R = R.Offset(, -1)
  R.FillDown


    Sheets("211").Activate
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "'21100"
  'Only the column to the left (column A)
  Set R = Range("B1", Range("B" & Rows.Count).End(xlUp))
  Set R = R.Offset(, -1)
  R.FillDown


End Sub