VBA Bloomberg Link Batch Refresh problem

[Syntal]

Hi

I am running some analytics on a long list of stocks.
The idea is to cut out 30 tickers per iteration, run the analytics and copy/paste the results and move on to the next batch.
I have about 600 individual tickers so this process will repeat 20+ times.
However, I am having difficulties allowing BBG to refresh the analytics with the second batch of tickers before copying the results in and moving on...
I tried putting delays/timers but I keep getting the first batch's number pasted in twice..

Can somebody suggest a solution?

Thanks



Sub ComboTest()
Range("N8").Select
Application.Run "'Chart Efficiency Overnight Data.xlsm'!ScreenRefresh"
Sheets("Template").Select
Range("B3").Select
If Worksheets("Template").Range("H3") = "X" Then
Application.Run "ScreenRefresh2"
Else: Application.Run "RefreshAllStaticData"
Application.OnTime Now + TimeValue("00:00:32"), "ScreenRefresh2"
End If

End Sub


Sub ScreenRefresh()


Sheets("Screen").Select
Range("B3:B32").Clear
Sheets("Master List").Select
Range("C3:C32").Select
Selection.Copy
Sheets("Screen").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "RefreshAllStaticData"
Application.OnTime Now + TimeValue("00:00:30"), "CP"
Sheets("Template").Select
Range("B3").Select
End Sub


Sub CP()


Sheets("Screen").Select
Range("B3:H32").Select
Selection.Copy
Sheets("Template").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


Sub ScreenRefresh2()


Sheets("Screen").Select
Range("B3:B32").Clear
Sheets("Master List").Select
Range("d3:d32").Select
Selection.Copy
Sheets("Screen").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "RefreshAllStaticData"
Application.OnTime Now + TimeValue("00:00:30"), "CPb"
Sheets("Screen").Select
Range("B3").Select
End Sub