apply filter and copy result in another sheet of same workbook

[Vaman Shenoy]

>>> use code - tags <<<

Private Sub CommandButton1_Click()

Dim keyrow As Long, lastkeyvoterrow As Long
MsgBox "object"
With Sheet1

        If Sheet1.Range("F4").Value = Empty Then
        MsgBox " Please select a correct Booth Number"
        Exit Sub
        End If
MsgBox "object2"

keyrow = .Range("F4").Value

MsgBox "object3"
'clear existing data
Sheet1.Range("E18:F30").ClearContents
MsgBox "object5"
MsgBox "object6"
lastrow = Sheet5.Range("A99999").End(xlUp).Row
MsgBox "object7"
Sheet5.Range("I4:J16").ClearContents
MsgBox "object8"
'Sheet5.Range("A2:C" & lastrow).AdvancedFilter xlFilterCopy, CriteriaRange:=Sheet5.Range("G3:G4"), CopyToRange:=Sheet5.Range("I4:J16"), Unique:=False
Sheet5.Range("A2:C" & lastrow).AdvancedFilter xlFilterCopy, CriteriaRange:=Sheet5.Range("G3:G4"), CopytoRange:=Sheet5.Range("I4:J16"), Unique:=False

Sheet1.Range("E18:F30").Value = Sheet5.Range("I4:J16")
End With
end Sub

I am getting error "

 

[Marc L]

Check the codeline raising the error …​

​