Simplified Macro

is there a way to simplified this macro
Thank you very much appreciate any help

Sub DataCleaner()
LastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 1 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 2 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 3 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 4 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 5 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 6 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 8 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 9 Then
Cells(x, 1).EntireRow.Delete
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For x = LastRow To 2 Step -1
If Cells(x, 19).Value = 1546 And Cells(x, 7).Value = 10 Then
Cells(x, 1).EntireRow.Delete
End If
Next
End Sub