Sub test()
Dim rng As Range
Dim x As Integer
Dim i As Range


Sheets("Workforce Data Table").Select
ActiveSheet.ListObjects( _
"WDT").Range. _
AutoFilter Field:=2, Criteria1:="Grave"

Range("A1").Select
Set RANGEENTRIES = Range("A1", ActiveCell.End(xlDown))
RANGEENTRIES.Select
Do While x <= NUMENTRIES
For Each cell In Selection
If ActiveCell.EntireRow.Hidden = False Then
x = x + 1
Set i = ActiveCell
Sheets("Monthly Management Report").Select
Range("B46").Select
ActiveCell.Cells(x, 0).Select

ActiveCell.Value = i
End If
i.Select 'This line fails, I'm assuming because my
variable i loses it's

'value outside of the if construct...
ActiveCell.Offset(1, 0).Select
Next cell
Loop

End Sub