dim fullStr as string
fullStr = cells(1,1).value
dim leftStr as string
leftStr = left(fullStr,30)
dim i as long
for i = 30 to 1 step -1
if Mid(leftStr,i,1) = " " then
cells(1,2).value = left(fullStr,i-1)
cells(1,3).value = right(fullStr,len(fullStr)-i)
exit for
end if
next i