Olá boa tarde pessoal tenho esse código e gostaria de uma ajuda ele copia um certo intervalo de uma planilha e cola em outra mas ao invés de colar gostaria que que ele inserisse o conteúdo copiado acima da linha 2 tem como fazer isso nesse código? E como ficaria se alguém puder me ajudar agradeço!
Sub GERAR_BD_3()
Dim Ult_lin As Long
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL3Conexão.xlsx")
Ult_lin = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:O" & Ult_lin).Copy
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL3BD_3.xlsx")
Application.Goto (ActiveWorkbook.Sheets("Clientes").Range("A2"))
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("Conexão.xlsx").Close SaveChanges:=False
Workbooks("BD_3.xlsx").Close SaveChanges:=True
End Sub
Postado : 02/07/2014 11:32 am