eu tenho esse codigo que praticamente funciona, porem a colagem dos campos C10 só vai para xlToLeft e quando eu tento colocar xlUP ou Down n funciona... alguma ideia ?
Sub fncMain2()
Dim lngLastCol As Long
Dim wksOri As Worksheet
Dim wkbDes As Workbook
Dim wksDes As Worksheet
Set wksOri = ThisWorkbook.Worksheets("Consulta")
Set wkbDes = Workbooks.Open("C:Userspaulo.robertoDesktopTestestest2test.xlsx")
Set wksDes = wkbDes.Worksheets("Plan1")
With wksDes
lngLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
End With
wksDes.Cells(1, lngLastCol) = wksOri.Range("C10")
End Sub
@EDIT: consegui arrumar, fica ai pra quem precisar futuramente de algo parecido
é só alterar
wksDes.Cells(1, lngLastCol) = wksOri.Range("C10")
onde "1" de (1, lngLastCol) é a linha, se você colocar 2, ele ira colar respectivamente na segunda linha, e assim por diante 
Postado : 09/09/2015 8:25 am