rogerio Cunha Gonçalves

Boa tarde.. Estou tenantdo mexer numa planilha em excel feita para mim pelo meu falecido irmão, criada em 2002, ou seja desatualizada Inseri novas linhas e campos no isitem porém ele não atende mais o comando de copiar so as linhas e colunas respectivas, em que a coluna "j" seja =1 para outra planilha de resultados , onde anteriormente ela zerava as linhas orfãs a macro que esta no sisteminha é esta Macro ronaldo Sub Calcular() Dim linhas As Variant Dim celula As Integer ' Macro1 Macro ' Macro gravada em 11/3/2002 por RONALDO CUNHA GONCALVES ' Sheets("Resultado a Transportar").Select Cells.Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("a1").Select With ActiveSheet celula = ActiveCell.Cells(1, 2).Value End With linhas = "c" & 1 & ":" & "h" & celula Range(linhas).Select Selection.Copy End Sub minha duvida ... devo refazer a planilha de respostas ??? pois algumas linhas não aprecem , mistura com outras que já sumiram.... estou perdido e tenho de terminar isto para voltar a trabalhar o quanto antes .. estou no desespero, desde logo agradeço