Delete Row if value less than - Quicker Solution?

Hello,

I've created the following code which deletes rows if the value in column G is less than 10.

Sub Deletelessthan10()

    Dim i As Long, c As Range
    For i = Cells(Rows.Count, "G").End(xlUp).Row To 1 Step -1
        If Range("G" & i) < 10 Then Rows(i).Delete
    Next i

End Sub

The issue is its a very time consuming. Can anyone recommend a faster solution?