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