AneDnz

Galera, To fazendo uma macro e está dando erro no Active.Sheet. A prog é o seguinte: Sub teste() ' ' teste Macro ' ' Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("C1").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-1],Tabela_regionalxcentral!C[-2]:C[-1],2,0)" Range("C1").Select Selection.AutoFill Destination:=Range("C1:C15490") Range("C1:C15490").Select Range("J1").Select ActiveCell.FormulaR1C1 = "=RC[-1]/60" Range("J1").Select Selection.AutoFill Destination:=Range("J1:J15490") Range("J1:J15490").Select Columns("A:J").Select Selection.Cut Sheets("BASE VC123 2016.1").Select Range("A566361").Select Sheets("Sheet2").Select Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Cut Sheets("BASE VC123 2016.1").Select Range("A1048576").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste End Sub Poderiam me ajudar? Obrigada.