Sub qv()
For i = 2 To Range("A1").CurrentRegion.Rows.Count
Cells(i, 1).Value = Cells(i, 1).Value & ".QV"
Next i
End Sub