Sort a Range of rows Down a column alphabetically

[KORKIS2]

I want the column to be alphabetically organized from top (A) to bottom (z) but I want it to be in a set range of rows that I have previously searched for

I think this is close but it says the sort method is not correct

Range("B2:G10").Select
Selection.sort Key1:=Range("A4"), Order1:=xlAlphabetical, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("R1000").Select

 

[V_Malkoti]

Key1 refers to the column range in your selection range, not just the header of column. Or you can write just the name if you are using named ranges.

Selection.Sort Key1:=Range("B1:B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[KORKIS2]

It doesnt work it says
sort method of range class failed 1004

 

[KORKIS2]

I found this from another forum page but can't get it to work

http://www.mrexcel.com/forum/excel-...l-basic-applications-macro-sort-question.html

Sub SortMe()
 
Dim cell as Range
Dim msg as String
 
Application.ScreenUpdating = False
 
On Error Resume Next
Set Cell = Range("A:A").Find(What:=0, After:=Range("A7"), LookIn:=xlValues, LookAt:=xlWhole)
On Error Goto 0
 
If Not Cell Is Nothing Then
  Range("A7:Z" & Cell.Row - 1).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess
Else
  Application.ScreenUpdating = True
  Msg = "No 0 values found, cannot determine last row of customer"
  Msg = Msg & vbCrLf & vbCrLf & "Macro exiting"
  MsgBox Msg 
  Exit Sub
End If
 
Application.ScreenUpdating = True
 
End Sub

 

[KORKIS2]

I got it working thank you