My VBA copies row if cell NOTBLANK but I need target columns in specific order (Code in post)

Kenneth Green If speed and efficiency is what you're looking for, Advanced Filter might be the solution...

Advanced Filter can be used to filter non-blank cells for a given column and copy the results to a new location, outputting only the columns you want to be returned, in whatever order you choose. Since the end result for your described scenario is to append the filtered data to another worksheet, an intermediary worksheet is required, as Advanced Filter cannot append its results directly to an existing dataset. The code for this is minimal, though, and allows you to copy the filtered results in one shot, rather than looping through each row individually.

The setup for the intermediary worksheet would be as follows:

• insert a new worksheet and rename it "AdvFilter"
• in cell A1, input the column header for column K, exactly as it appears in your "Track Data" worksheet
• in cell A2, type the not equal to operator, <>
• in row 5, starting in column A, type the column headers for each of the columns you want to be included in the filtered results, in the order you want them to be returned (again, make sure they are exactly the same as the column headers used in the source table)

The setup should look something like this (change the header labels to match the actual column labels used in the "Track Data" worksheet):

Advanced Filter Setup

Range A1:A2 is the [CriteriaRange], and range A5:H5 is the [CopyToRange]. The code to run Advanced Filter and append the results to the "Titles Data" worksheet would look something like this:

Option Explicit

Sub CopyRowsWithData()

    On Error GoTo ErrorHandler

'Turn off application settings
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

'Filter the source data to an intermediary worksheet
    Dim wsSource As Worksheet, wsFilter As Worksheet
    Set wsSource = Sheets("Track Data")
    Set wsFilter = Sheets("AdvFilter")
    Call AdvFilter(wsSource.Range("A1").CurrentRegion, wsFilter.Range("A1").CurrentRegion, wsFilter.Range("A5"))

'Copy the results to an array
    Dim rgResults As Range, n As Long
    Set rgResults = wsFilter.Range("A5").CurrentRegion
    n = rgResults.Rows.Count - 1
    If n < 1 Then GoTo CleanUp
    Dim arr As Variant
    arr = rgResults.Offset(1).Resize(n).Value

'Write the results to the destination worksheet
    Dim wsOutput As Worksheet
    Set wsOutput = Sheets("Titles Data")
    n = wsOutput.Cells(wsOutput.Rows.Count, 1).End(xlUp).Row + 1
    wsOutput.Cells(n, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

CleanUp:

'Turn on application settings
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    MsgBox Err.Description, vbExclamation, "Runtime Error: " & Err.Number
    Err.Clear
    GoTo CleanUp

End Sub

Private Sub AdvFilter(sourceRng As Range, criteriaRng As Range, outputRng As Range, Optional optUnique As Boolean)
    
'Clear the previous search results
    outputRng.CurrentRegion.Offset(1).ClearContents

'Output the new search results
    On Error Resume Next
    sourceRng.AdvancedFilter xlFilterCopy, criteriaRng, outputRng.CurrentRegion, optUnique

End Sub

This is just an example, and the above code can be easily adapted for a wide variety of scenarios. For more information on Advanced Filter in VBA, check out: https://excelmacromastery.com/vba-advanced-filter/