Gefilterte Sätze unter Filter einfügen / FEHLERME

Sub FEHLCOPY()
Dim actcell As Integer
ureihe = Range("b65536").End(xlUp).Row
Range("a1:ac" & ureihe).Select
Selection.AutoFilter Field:=1, Criteria1:="0", Operator:=xlOr, _
Criteria2:="=#NV"
Range("B2:B" & ureihe).Copy
Range("B" & ureihe + 50).Select
Selection.Paste    Application.CutCopyMode = False
Range("C" & ureihe + 5).Select
actcell = Selection.Row
ureihe = Range("b65536").End(xlUp).Row
ureihe = ureihe - actcell
ActiveCell.FormulaR1C1 = "=oderstring(RC[-1]:R[" & ureihe & "]C[-1])"
End Sub

Das versteh ich leider nicht!
Hat jemand eine Idee?!
Vielen Dank im Vorraus für die Hilfe!
Gruß
Lothar