runs on f8 but not on f5

Question

Sub copypartdatatest()
    Dim ctr, tdt, lr, lr1, lr2, lr3, rng, i
    ctr = 2
   Workbooks("daily1.xlsm").Activate
        Worksheets("fpd").Range("a1:z5000").ClearContents
        
        Worksheets("nbn").Select
        lr = ThisWorkbook.Sheets("nbn").Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To lr
            ThisWorkbook.RefreshAll
            Sheets("nbn").Select
            Range("a" & ctr).Copy
            Sheets("fpr").Select
            Range("c4").PasteSpecial xlPasteValues
            ActiveWorkbook.RefreshAll
            ThisWorkbook.RefreshAll
            Workbooks("daily1.xlsm").RefreshAll
            Range("part").Calculate
            Range("fii").Calculate ' fii is the name of the query table
            Sheets("fpd").Select
            lr1 = Range("a1").Cells(Rows.Count, 1).End(xlUp).Row
            lr1 = lr1 + 1
            lr2 = Range("r1").Cells(Rows.Count, 1).End(xlUp).Row
            lr2 = lr2 + 1
            Sheets("fpr").Select
            Range("part").Copy ' part is the name of the query table
            Sheets("fpd").Range("a" & lr1).PasteSpecial xlPasteValues
            Sheets("fpd").Select
            lr1 = Range("r1").Cells(Rows.Count, 1).End(xlUp).Row
            lr1 = lr1 + 1
            lr2 = Range("aa1").Cells(Rows.Count, 1).End(xlUp).Row
            lr2 = lr2 + 1
            Sheets("fpr").Select
            Range("fii").Copy ' partoi16023 is the name of the query table
            Sheets("fpd").Range("r" & lr1).PasteSpecial xlPasteValues
            ctr = ctr + 1
         Next i
         Worksheets("fpd").Select
         Range("a1").Select
         
End Sub