Retrive and wait macro

Application.Wait is used in a macro instruct the macro to pause for a certain amount of time.

A minimalist example, this macro will look UP column A to see how many rows of data there are, then it will add that formula into column B for you into 1000 cells at a time, forcing them to recalculate, then pause 15 seconds, then do the next 1000 rows, etc, until all the rows have been processed. This is to give you a starting point you can adjust for your needs.

Option Explicit

Sub WaitExample()
Dim Rw As Long

For Rw = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 1000

    .Range("A" & Rw).Resize(1000).FormulaR1C1 = "=BPD(security ticker, RC1, 5122)"
    Application.Wait Now + TimeValue("00:00:15")
    
Next Rw

End Sub

Maybe:

Sub WaitExample()
Dim Rw As Long, Mycode As String, WaitTime As Long

Mycode = CStr(Application.InputBox("What is the ticker number?", "Ticker number", 5122, Type:=2))
If Mycode = "False" Then Exit Sub
WaitTime = Application.InputBox("What is the wait time in seconds?", "Wait time", 15, Type:=1)

For Rw = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 1000

    Range("A" & Rw).Resize(1000).FormulaR1C1 = "=BPD(security ticker, RC1, " & Mycode & ")"
    Application.Wait Now + TimeValue("00:00:" & Format(WaitTime, "00)"))
Next Rw

End Sub

Maybe:

Range("A" & Rw).Resize(1000).FormulaR1C1 = "=BPD(""security ticker"", RC1, " & Mycode & ")"

So this is different from your originally posted example? BPD is a function not in the workbook, so I can't speak to how/whether it works. My macro above as based on helping you enter the "formula" I saw in your original workbook the same way I saw it entered. You have a better workbook example?

Hi JBeaucaire let me check in my office and i will get back to u!, coz i cant check it now at home! but what abt the other column. but from my knowledge i am attaching file this might be more clear

Maybe change the column reference in that line of code:

Range("B" & Rw).....

These are extremely simple edits, you're going to have to be able to make tweaks like this yourself if you're going to employ VBA.

The same exact macro from post #6 with only the edits described in #9 & #13:

Option Explicit

Sub WaitExample()
Dim Rw As Long, Mycode As String, WaitTime As Long

Mycode = CStr(Application.InputBox("What is the ticker number?", "Ticker number", 5122, Type:=2))
If Mycode = "False" Then Exit Sub

WaitTime = Application.InputBox("What is the wait time in seconds?", "Wait time", 15, Type:=1)

For Rw = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 1000

    Range("B" & Rw).Resize(1000).FormulaR1C1 = "=BPD(""SecCode"", RC1, " & Mycode & ")"
    Application.Wait Now + TimeValue("00:00:" & Format(WaitTime, "00)"))

Next Rw

End Sub

When you DEBUG at that moment and hover your mouse over that line of code, what is the value of WaitTime?

Spotted a typo:

  Application.Wait Now + TimeValue("00:00:" & Format(WaitTime, "00"))