vba to sort on existing code

[jmazorra]

Hello everyone:

in the code below I am trying to also sort column B2 in ascending order. B1 is the header. I can't seem to make it work.

Any help is appreciated

 Private Sub CommandButton11_Click()
'copy and paste cells with formulas down
    Dim LR As Long
    For Each SheetName In Array("eeinfo")
        With Worksheets(SheetName)
            LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
            .Range("B2:e2").AutoFill Destination:=.Range("B2:e" & LR)
        End With
        
        Next
        
        MsgBox "Step Completed"
End Sub

 

[wigi]

 Private Sub CommandButton11_Click()
'copy and paste cells with formulas down
    Dim LR As Long
    For Each SheetName In Array("eeinfo")
        With Worksheets(SheetName)
            LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
            .Range("B2:E" & LR).FillDown
            .Range("B1:E" & LR).Sort .Range("B1"), xlAscending, , , , , , xlYes
        End With
        
        Next
        
        MsgBox "Step Completed"
End Sub

[/QUOTE]

 

[jmazorra]

thanks, its exactly what I needed