y = 5
Do While IsEmpty(Sheets(1).Cells(y, 1)) = False
Sheets(1).Cells(y, 3) = "=LEFT(B" & y & ";FIND("" """ & ";B" & y & ")-1)"
Sheets(1).Cells(y, 4) = "=MID(B" & y & ";FIND("" """ & ";B" & y & ")+1;9999)"
y = y + 1
Loop
At first blush, change ; to comma(,)
You don't really need a loop for this exercise. If you want to fill "C5:C"& (lastRow) with formula, simlpy go:
Lastrw1=Cells(rows.count,"C").End(xlUp).Row
Sheets(1).Range("C5:C" & Lastrw1)="=LEFT(B5,FIND("",B5)-1)
Similarly,
Lastrw2=Cells(rows.count,"D").End(xlUp).Row
Sheets(1).Range("D5:D" & Lastrw2)="=MID(B5,FIND("",B5)+1,999)
Bookmarks