Range("D1").FormulaLocal = "=DOSADIT(ZLEVA(A" & j & ";HLEDAT("" "";A" & j & ")+2);"" "";"""")&"" Test_Q"" "
Edit:
nebo lépe
Range("D1").Formula = "=SUBSTITUTE(LEFT(A" & j & ",SEARCH("" "",A" & j & ")+2),"" "","""")&"" Test_Q"" "citovat
Edit:
nebo lépe
Range("D1").Formula = "=SUBSTITUTE(LEFT(A" & j & ",SEARCH("" "",A" & j & ")+2),"" "","""")&"" Test_Q"" "citovat