Goto last filtered row

[Av8tordude]

After auto-filtering my data, I would like to select (goto) the last filtered row. how can I do this in VBA

 

[Fluff]

How about

   Application.Goto Range("A" & Rows.Count).End(xlUp)

 

[Av8tordude]

Thank you Fluff. As always, you and others are greatly appreciated.

 

[Fluff]

Glad to help & thanks for the feedback.

 

[Peter_SSs]

In case ...

• there is other data below the AutoFilter range or
• columns are inserted so that column A is no longer part of the AutoFilter range or
• the bottom visible cell(s) in column A of the AutoFilter range is/are blank

.. then this might be more robust.

Sub LastFltrRow()
  With ActiveSheet.AutoFilter.Range.SpecialCells(xlVisible)
    With .Areas(.Areas.Count)
      .Rows(.Rows.Count).Select
    End With
  End With
End Sub

 

[Av8tordude]

Thank you Peter

 

[Peter_SSs]

Thank you Peter

You're welcome. Glad to contribute.

 

[Av8tordude]

In conjunction to going to the last row, how can I put a line under the selected row. I tried this, but it places a line under every row. I just want a line under the last filtered row.

Range("A7:S" & lRow).LineStyle = xlContinuous

 

[Fluff]

With Peter's code just replace Select with

Borders(xlBottom).LineStyle = xlContinuous

 

[Av8tordude]

Thank Fluff. Sorry about the duplicate post. Cheers