Copy WHOLE Row if citeria matches

Here you go.

Sub aa()
    Dim DataWB As Workbook
    Dim OutWB As Workbook
    Dim OutSH As String
    Dim DataSH As String
    Dim Filas As Integer
    
    DataSH = "Sheet 1"
    OutSH = "Sheet2"
    
    Set DataWB = ActiveWorkbook
        
    Workbooks.Open ("Z:\Filters\Commisions.xlsm")
    Set OutWB = ActiveWorkbook
    
    DataWB.Activate
       
    Application.ScreenUpdating = False
    
    Filas = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    OutWB.Sheets(OutSH).Activate
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    
    DataWB.Sheets(DataSH).Activate
    Range("N2").Select
    
    For i = 1 To Filas
        If ActiveCell.Value = "SOLD" Then
            ActiveCell.EntireRow.Copy
            OutWB.Sheets(OutSH).Activate
            ActiveSheet.Paste
            ActiveCell.Offset(1, 0).Select
            DataWB.Sheets(DataSH).Activate
             
        End If
        
        Cells(i, 14).Select
    Next
    
    Application.ScreenUpdating = True
    Range("N2").Select
    

    
End Sub

Remember the name of the Workbooks, Worksheets and Path to Output Workbook.

Data> Worksheet = "Sheet 1"
Workbook = irrelevant
Path = irrelevant

Output> Worksheet = "Sheet2" (without spaces)
Path & Workbook = "Z:\Filters\Commisions.xlsm"

Try it and reply.