Dim ws As Worksheet, cel As Range, retVal As String, tRows As Long
Set ws = ThisWorkbook.Worksheets(1)
tRows = ws.Cells(ws.Rows.Count, 1).End(xlUp).row
Dim r As Long
For r = 1 To tRows
retVal = "first_name=" & ws.Cells(r, 1)
retVal = retVal & "$last_name=" & ws.Cells(r, 2)
retVal = retVal & "&state=TX&country_code=US"
retVal = Replace(retVal, " ", "%20")
Notice that I included a replacement for any spaces" " to change to %20 as URLs typically do not like spaces in them. You can remove if you don't need it.