This is a shot in the dark: try removing the line:
.Range("A1:AJ1").AutoFilter
altogether.

Otherwise, we could do a TeamViewer session (do an internet search)