x2='W'+TRANSFORM(WEEK(DATE())-2)
loExcel1= newobject("excel.application")
loExcel1.Workbooks.Open( "c:\cr11018\CR11018_VOCE.xls")
loSheet= loExcel1.ActiveSheet
loSheet.Range("F6:F14").Copy
loSel=loSheet.Range("B51:R59").FIND(x2) &&nu ai nevoie de macrosubstitutie aici
IF vartype(loSel)="O"
   lcAddresss=loSel.Address
   loSheet.Range('B51:R59').PasteSpecial(lcAddress)
Endif

Atentie cand preiei codul din Object Browser sau din macro: sintaxa este cea pentru Visual Basic. Cand transpui in VFP, argumentele functiilor se trec intre paranteze, elimini atribuirea intre paranteze si pastrezi doar valoarea si ordinea parametrilor.
O parte dintre functii sunt de fapt comenzi, iar valoarea returnata este true sau false, indicand succesul sau esecul comenzii, si nu rezultatul ei. Ca atare, loSheet.range('F6:f14').Copy nu returneaza ce se gaseste in clipboard, ci doar true sau false.
De asemenea, ai redefinit loSheet de mai multe ori, si nu stiu ce sens ii dai pana la urma. Conform unor reguli de denumire a variabilelor, loSheet este o variabila locala (l), de tip obiect (o) si refera o pagina din workbook (Sheet). Atribuirile pe care i le-ai dat nu au insa nici o legatura cu asta. Nu este o greseala din punct de vedere al sintaxei VFP, dar face codul greu de urmarit.
Valorile constantelor excel referite in functii si comenzi le gasesti aici: 

http://techsupt.winbatch.com/ts/T000001033005F9.html

E greseala mea,  in prima linie lcAddress e scris cu 3 s (iar codul nu l-am testat ...):

IF vartype(loSel)="O"
   lcAddresss=loSel.Address
   loSheet.Range('B51:R59').PasteSpecial(lcAddress)
Endif

Corect este asa:

IF vartype(loSel)="O"
   lcAddress=loSel.Address
   loSheet.Range('B51:R59').PasteSpecial(lcAddress)
Endif

With Worksheets("Sheet1")
    .Range("C1:C5").Copy
    .Range("D1:D5").PasteSpecial Operation:=xlPasteSpecialOperationAdd
End With

aici ai valoriel constantelor definite prntru vfp: http://fox.wikis.com/wc.dll?Wiki~ExcelConstants~VFP 

#DEFINE xlPasteAll -4104

#DEFINE xlPasteAllExceptBorders 7

#DEFINE xlPasteColumnWidths 8

#DEFINE xlPasteComments -4144

#DEFINE xlPasteFormats -4122

#DEFINE xlPasteFormulas -4123

#DEFINE xlPasteFormulasAndNumberFormats 11

#DEFINE xlPasteSpecialOperationAdd 2

#DEFINE xlPasteSpecialOperationDivide 5

#DEFINE xlPasteSpecialOperationMultiply 4

#DEFINE xlPasteSpecialOperationNone -4142

#DEFINE xlPasteSpecialOperationSubtract 3

#DEFINE xlPasteValidation 6

#DEFINE xlPasteValues -4163

#DEFINE xlPasteValuesAndNumberFormats 12

 
With Worksheets("Sheet1")
    .Range("C1:C5").Copy
   .Range("D1:D5").PasteSpecial(xlPasteSpecialOperationAdd)
EndWith