Autofilter - Ignore Non-visible Rows

I have a spreadsheet with over 20000 rows of data and have used autofilter to find the information I want to check. Once I have these rows I want to check whether the cells in Column AE are higher/lower than the number (in this case '3'). Once it finds a cell that meets this condition then it copies and pastes the whole row so that I can review the entry.

The problem I'm having is that it doesn't work all the time. I've tested it a number of times in break mode & played it throughout and it works as expected, whereas other times it picks up the top row (header) and duplicates it or it picks up hidden rows and pastes them in sheet 2 if the condition is met. I want it to just pick up rows if they are visible (using the filter) if the condition is met.

Here's what I have so far:

Code:

Sub Lvl3v2()
'Level 3
Dim i As Integer
Dim r As Range
Dim c As Range
　
i = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

[Code] .........