Option Explicit

 

Sub Sista_Synliga_Cell_Filtrerad_Lista()

Dim wbBook As Workbook

Dim wsSheet As Worksheet

 

Set wbBook = ThisWorkbook

Set wsSheet = wbBook.Worksheets("Blad1")

 

MsgBox wsSheet.Cells(Rows.Count, "A").End(xlUp).Address

 

End Sub

 

Sub Sista_Synliga_Cell_Filt_Lista()

Dim wbBook As Workbook

Dim wsSheet As Worksheet

 

Set wbBook = ThisWorkbook

Set wsSheet = wbBook.Worksheets("Blad1")

 

MsgBox wsSheet.UsedRange.SpecialCells _

       (xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Address

End Sub