Sub test()
With Sheets("base").Range("$F$8", Sheets("base").Cells(Rows.Count, "F").End(xlUp))
.AutoFilter Field:=1, Criteria1:=">0"
.Copy Sheets("recap").Cells(3, 2)
.AutoFilter
End With
End Sub
Sub test()
Dim pl As Range
With Sheets("recap")
.[B3:B1015].ClearContents
On Error GoTo fin
Set pl = Sheets("base").[F8:F1020].SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not pl Is Nothing Then pl.Copy Sheets("recap").[B3]
End With
fin:
End Sub