Capture only displayed rows from filter for copy paste to another sheet

The code right below works as designed, however I now need to filter the "Set x = ThisWorkbook.Worksheets("AX_Data")" in the code below (Sub CopyAX()) before copying. When I add the lower code to set filters on the sheet, the variable "LastRow = x.Cells.SpecialCells(xlCellTypeLastCell).Row" still counts all rows and copies everything and not just what is visible. See filter below. I added the code above the Dim and it filtered correctly but the row count was all and not the filtered amount and all data was copied. How do I adjust the variable or restate the syntax to only copy the filtered rows displayed?

Please Login or Register  to view this content.

Please Login or Register  to view this content.