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.
