Andrade Info

Boa noite! Sou iniciante e gostaria de uma ajuda... Eu gravei a seguinte macro: Sub teste() ' ' teste Macro ' ' Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("212").Select Range("A1").Select ActiveSheet.Paste Sheets("Comb18nº").Select Range("T1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='212'!RC[18]" Range("T1").Select ActiveCell.FormulaR1C1 = "='212'!RC38" Range("T1").Select Selection.AutoFill Destination:=Range("T1:AL1"), Type:=xlFillDefault Range("T1:AL1").Select Range("U1").Select ActiveCell.FormulaR1C1 = "='212'!R[1]C38" Range("V1").Select ActiveCell.FormulaR1C1 = "='212'!R[2]C38" Range("W1").Select ActiveCell.FormulaR1C1 = "='212'!R[3]C38" Range("X1").Select ActiveCell.FormulaR1C1 = "='212'!R[4]C38" Range("Y1").Select ActiveCell.FormulaR1C1 = "='212'!R[5]C38" Range("Z1").Select ActiveCell.FormulaR1C1 = "='212'!R[6]C38" Range("AA1").Select ActiveCell.FormulaR1C1 = "='212'!R[7]C38" Range("AB1").Select ActiveCell.FormulaR1C1 = "='212'!R[8]C38" Range("AC1").Select ActiveCell.FormulaR1C1 = "='212'!R[9]C38" Range("AD1").Select ActiveCell.FormulaR1C1 = "='212'!R[10]C38" Range("AE1").Select ActiveCell.FormulaR1C1 = "='212'!R[11]C38" Range("AF1").Select ActiveCell.FormulaR1C1 = "='212'!R[12]C38" Range("AG1").Select ActiveCell.FormulaR1C1 = "='212'!R[13]C38" Range("AH1").Select ActiveCell.FormulaR1C1 = "='212'!R[13]C38" Range("AI1").Select ActiveCell.FormulaR1C1 = "='212'!R[14]C38" Range("AJ1").Select ActiveCell.FormulaR1C1 = "='212'!R[15]C38" Range("AK1").Select ActiveCell.FormulaR1C1 = "='212'!R[16]C38" Range("AL1").Select ActiveCell.FormulaR1C1 = "='212'!R[17]C38" Range("AM1").Select End Sub Qual comando eu uso dentro dessa macro para ele continuar verificando as demais linhas? Vamos lá, eu copiei "A1:R1" de uma planilha e colei em outra planilha, com isso ele jerou uns resultados e retornou para a planilha de onde copiei. Agora, eu queria que isso continuasse automaticamente para "A2:R2", "A3:R3" em diante, ou seja, quando eu apertar o botão que criei para a macro ele vá automáticamente até a ultima linha que é "A480700:R480700".

Olá! O meu está acontecendo a mesma situação... Mesmo sem conectar ao carregado... Só em colocar a bateria ele esquenta muito. Abri(mexo em cel por hobi), vi que é um componente da placa-mãe que esquenta, tentei ver alguns vídeos com alguma opção de concerto, mas não encontrei... Se alguém puder ajudar, desde já agradeço!