I will add a bit more detail to make it a clearer question:

I have data in columns a:g

I want to sort the data from a5 to the cell in column G where there is the
letter "N" in column G

Column G only contains the letter N or Y.

I am trying the following code but to no avail.

Private Sub CommandButton1_Click()
Dim Rng_Sort_Completed
Dim val_LastNotCompleted As Integer

val_LastNotCompleted = Application.CountIf(Sheets("Task List").Range("G:G"),
"N") + 5 '+ due to 5 header rows

Rng_Sort_Completed = ("a5:h" & val_LastNotCompleted)

'Sort Order = G,D,A = Completed,
Range("Rng_Sort_Completed").Sort Key1:=Range("g5"), Order1:=xlAscending,
Key2:=Range("d5") _
, Order2:=xlAscending, Key3:=Range("a5"), Order3:=xlAscending, Header:=
_
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom

ActiveWindow.SmallScroll Down:=-3

End Sub




"Andibevan" wrote in message
...
Hi All,

What is the easiest way of finding the last row of column G which has the
letter "N" in it?

Thanks

Andy