Copy/Paste filtered data to another sheets

[OneAbhishek]

Hi everyone i am working in this sheet where i have to copy data from one sheet named as "DAILY" and paste to next available row in column "B" in another sheet named as DATABASE2". i tried following vba code i want to assign this macro to a linked picture. i hope i will get lucky and someone will help me too
It shows object error

Sub Save1()

' SAVE1 Macro
'

'
ActiveSheet.Range("$A$9:$H$80").AutoFilter Field:=3, Criterial:="<>"
Range("B10:I80").SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("DATABASE2").Select
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, 2).End(xlUp)
ActiveCell.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DAILY").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("I17").Select
End Sub

 

[Peter_SSs]

Duplicate to: Copy And paste visible data of table after filter to another table of anothet sheet

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.

Further, I have already pointed you to the Forum Rules via our conversation messages. If you do not read and follow all the rules then you may find that your forum privileges are curtailed or removed.