Dante Amor respondió:
Reemplaza las siguientes líneas. '*** ufila = Columns("C:C").Cells.Find("*", , xlFormulas, xlPart, xlByRows, xlPrevious).Row Range("D2").Select Selection.AutoFilter ActiveSheet.Range("$A$2:$Q$48").AutoFilter Field:=xPrueba, Criteria1:="1"...