Code: Select all
xl := ComObjActive("excel.application")
frstblnk := xl.activesheet.range("D1").End(-4121).offset(1,0).row
xl.range("D" frstblnk).value := "b"
xl.range("D" frstblnk).offset(0,1).value := "c"
xl.range("D" frstblnk).offset(0,-1).value := "a"