Copy Data to a New Sheet if criteria match (multiple) using a Command Button

See if this works for you.

Private Sub CommandButton1_Click()

Dim lrow1 As Long, lrow2 As Long, Rng As Range

lrow1 = Sheets("Master").Cells(Rows.Count, 4).End(xlUp).Row
lrow2 = Sheets("Sheet6").Cells(Rows.Count, 4).End(xlUp).Row

For i = 2 To lrow1
    If Sheets("Master").Range("D" & i) > 4000 Then
        Sheets("Sheet6").Range("A" & lrow2 + 1 & ":D" & lrow2 + 1).Value = Sheets("Master").Range("A" & i & ":D" & i).Value
        Sheets("Sheet6").Range("G" & lrow2 + 1).Value = Sheets("Master").Range("G" & i).Value
        Sheets("Sheet6").Range("M" & lrow2 + 1).Value = Sheets("Master").Range("M" & i).Value
        lrow2 = lrow2 + 1
    End If
Next i
Worksheets("Master").Activate
MsgBox "Done!"
End Sub