Loop Through Rows faster

Not sure about your exact URL but it might look something like this.

             strURL = "http://" & hlink & "/cgi /PControl.cgi?tool= HLINK&sc=" & str & "&ph=""&K2&""" & _
             "&stme=""&Y2&""&etme=" & etme
            
            With Range(Cells(2, col), Cells(lastrow, col))
                .Formula = "=HYPERLINK(""" & strURL & """,""HLINK"")"
                .Font.Underline = True
                .Font.Color = vbBlue
            End With

Note, you might not need the font formatting part.