To Copy Data which is visible only

To Copy Data which is visible only
Sub selectVisibleRangep()

    Dim DbExtract, DuplicateRecords As Worksheet
    Set DbExtract = ThisWorkbook.Sheets("Input Sheet")
    Set DuplicateRecords = ThisWorkbook.Sheets("Payroll")

    DbExtract.Range("Ay13:bs500").SpecialCells(xlCellTypeVisible).Copy
    DuplicateRecords.Range("a8").PasteSpecial Paste:=xlPasteValues


    End Sub