Lenon Bier

estou tentando colar dados filtrados e em seguida copiar na mesma planilha com o mesmo filtro, no caso na coluna ao lado, porem em outra formatação, porem a seleção de cópia é feita com sucesso, porém na hora da colagem, ela não é feita de acordo com a seleção filtrada e sim como se não houvesse filtro, quando tento usar o mesmo código que uso para copiar as células da erro na parte da colagem, Selection.SpecialCells(xlCellTypeVisible).Select, alguém poderia ajudar sobre o motivo desse erro Range("j8:j30000").Select Selection.SpecialCells(xlCellTypeVisible).Select Range("k8:k30000").Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.PasteSpecial