dim cnum1,cnum0

cnum1 = 6
cnum0 = 3
cells(2,3).formula = "=vlookup(A2,sheet1!C:F,cnum1 - cnum0 + 1,0)"