Run-Time Error 1004

[Kitty Lee]

Dear Sir,

No clue of my mistake. Please help.
New to Excel Marco in VBA language.

Sub ToSummary()
Dim lrSort As Long
lrSort = Worksheets("Billings").Range("C65536").End(xlUp).Row

Worksheets("Billings").Range("A:H" & lrSort).Sort _
key1:=Worksheets("Billings").Range("B"), order1:=xlAscending, _
key2:=Worksheets("Billings").Range("E"), order2:=xlAscending, _
Header:=xlYes

End Sub

 

[AlphaFrog]

[color=darkblue]Sub[/color] ToSummary()
    
    [color=darkblue]Dim[/color] lrSort    [color=darkblue]As[/color] [color=darkblue]Long[/color]
    
    [color=darkblue]With[/color] Worksheets("Billings")
        
        lrSort = .Range("C65536").End(xlUp).Row
        
        .Range("A1:H" & lrSort).Sort _
                key1:=.Range("B2"), order1:=xlAscending, _
                key2:=.Range("E2"), order2:=xlAscending, _
                Header:=xlYes
            
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]