excel - Looping through Macro to sort through column of data

Question

I am trying to loop through a column of data and move all data below "south" but above "north"/"east"/"West". The data is random and tied to each title so I can't sort alphabetically.

Without the loop; I am able to sort the first cell under "south" but when I utilise a loop nothing works. Please can someone advise or point me in the right direction?

Dim rng As Range
Dim i As Integer
For i = 1 To rng.Rows.Count
Dim rngFound As Range
Dim rngFoundTrue As Range
 
Set rngFound = Cells.Find(What:="SOUTH", After:=ActiveCell, LookIn:=xlFormulas, _
 LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
 MatchCase:=False, SearchFormat:=False)
 
Set rngFoundTrue = rngFound.Offset(1, 0)
rngFoundTrue.Cut Destination:=rngFoundTrue.Offset(0, 1)
Set rngFound = Nothing
 
Do Until rngFoundTrue.Value = "NORTH" Or "WEST" Or "EAST"
Next
End Sub

Thank you!

标签： excelvba