Vlookup loop in vba

Hi,

I am trying to make vlookups in vba work in the same way that Excel does, by looking at a range and populating a cell based on what it is looking for. The current code I have is:

Sub Caseload_Run()

Dim example As range
Set example = range("A2")

Sheets("Caseload").Select

On Error Resume Next

range("A2") = Application.WorksheetFunction.VLookup(Sheets("Lookup IDs").range("A2"), Sheets("Test Sheet").range("A3:K999999"), 1, False)

example.Offset(1, 0).Select

Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select


End Sub


I need this to continually loop and display a figure in each cell of the "Caseload" sheet until the lookup value (Lookup IDs) in the table is blank.

I can't see a place to upload files from the computer I am using, but this would be helpful and make things easier to understand

Thanks