Sort By No Of Words Macro

I am look for a macro that can look through a range of cells within a sheet and sorts that range of cells by word count.

I have 1 macro that is excellent which sorts by character count.

If possible, if this macro can be duplicated exactly the same, but to sort by Word count and not character count.

As a note the range of cells are always in a sheet labelled " AllKWs"
Always start from Cell A3 running down.
And the phrases could be anything like "car to rent in london"

As to the macro I have already for character count, it is this kindly written by VOGII


Sub NoOfCharacters()
Dim lastrow As Long, TotP, TotC, AvC
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
If lastrow < 4 Then
MsgBox "Nothing to sort!"
Exit Sub
End If