Select and copy n number of rows from Filtered Table

Hi,

I have developed a macro that copies a specific number of rows from a table based on cell H5. However now that I have filtered the table it does not copy the visiable rows but looks at the complete table. How can I change my code below to accomodate this??

Sub Liness()

Dim Copyrange As String
Dim LastRow As Range

Startrow = 7
Let Copyrange = "B" & Startrow & ":" & "H" & Range("H5")
Range(Copyrange).Select
Selection.Copy
Sheets("Output").Select
Range("B8").Select
ActiveSheet.Paste
Range("A1").Select
End Sub