VBA using instr when found cells that include text add to other row

Question

I made macro that find cell which include text in other cell. I needed to list them to other place by using space of other two row this is example

IF text of A1 is included in B1 paste A1 to C1 and B1 to D1 like this patern

compare A1 to B row and paste based cells to "C" row and including text cell to "D" row

    Sub killerb()
    
 dim kinder as range
dim lookfor as range
set kinder = sheets(11).Range("C1:C29995")
set lookfor = sheets(11).Range("B1:B29995")

for i = 1 to 29995
if not kinder(i) =""then
foir c =1 to 29995
if instr(1, lookfor(c).value, kinder(i).value) >0 then
sheets(11).cells(i+t,4)= kinder(i).value
sheets(11).cells(i+t,5) =lookfor(c).value
t = t+1
end if
next
end if
next
    End Sub

it works but there are too many empty cells between cells that contain text. and its keep on lagging

please help