Sorting values in dynamic range

  • Hi everyone,

    I've recorded macros to sort values in the fixed size range and failed to adjust it to flexible/dynamic range.

    I tried to replace line: .SetRange ActiveSheet.Range("A1:G21")

    with line: .SetRange ActiveSheet.Range("A2", Range("A2").End(xlDown).End(xlToRight)).Select

    It did not work and gives Run-time error "13": Type mismatch.

    I would be grateful for any help. Thanks in advance.


  • Hello,

    You could test the following

    Sub SortValues()
    Dim last As Long
        last = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
        Range("A1:G" & last).Sort [A1], xlAscending, Header:=xlYes
    End Sub

    Hope this will help

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Thumbs Up" icon, below, in the bottom right corner:)

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!