Hello fgingell,

Welcome tot he Forum!

You can actually skip lines in a text file using the text import method. Rather, you have to check the data once it has been transferred onto the worksheet and delete rows accordingly. based on you r example, the macro assumes the sample shown to be in columns "A" through "D". A second macro will examine each cell in column "D" and delete the row if it has a zero value. A call is made from the first macro to second, after the data has been imported.

Amended First Macro
Sub aged()
'
' aged Macro

    Dim strinp As String
    strinp = Environ("userprofile") & "\My Documents\Dimensions Reports\Customer List.txt"

    Sheets("ImpCust").Select
    ActiveSheet.Unprotect
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strinp _
        , Destination:=Range("A1"))
        .Name = "Customer List"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _
        9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9 _
        , 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _
        9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9 _
        , 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 1, _
        9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
' I need coding here to test the 4th field of each row and if equal to 0 will skip

   Call DeleteZeroDollars

    End With

End Sub

Second Macro to Delete Rows
Sub DeleteZeroDollars()

  Dim R As Long
   
    Application.ScreenUpdating = False
    
    For R = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
      If Cells(R, "D") = 0 Then
         Rows(R).EntireRow.Delete
      End If
    Next R
    
    Application.ScreenUpdating = True
    
End Sub