Как выбрать данные после автофильтра? UsedRange.SpecialCells (xlCellTypeVisible) не работает

Question

У меня есть лист данных. Я применяю автофильтр. Теперь я хочу скопировать и вставить эти данные только видимые строки. Я использую команду UsedRange.SpecialCells (xlCellTypeVisible) .Copy, и теперь она работает. Есть ли другой способ сделать это? или обходной путь?

это мой код

ws1.Activate
ws1.Cells(1, 1).Select

'to count how many lines are on the sheet
LastRow = ws1.Range("A1").CurrentRegion.Rows.Count

'lets use the last row to build the range that I need to filter
myrange = CStr(LastRow)


'I filter the range on the sheet by 0.14
ws1.Range("A1:O" & myrange).AutoFilter Field:=8, Criteria1:="0.14"


'this counts the data(rows) visible after applying the filter and -1 means minus the header
Rowz = ws1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

'this will copy the filtered data into the following range
'I get the error in this line of code. dont know what wrong 
ws1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Range("A" & CStr(LastRow + 1) & ":O" & CStr(LastRow + 1))

'I tried as well
ws1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Range("A" & CStr(LastRow + 1) & ":O" & CStr(LastRow + 1 + Rowz))

любые идеи приветствуются:)