Add to Make a String

[Zack Barresse]

You could always go simple...

Sub addSix()
Dim x     As Integer
    Dim s     As String
    Dim lRow  As Integer
    lRow = Range("A65536").End(xlUp).Row
    s = InputBox("Enter the 6 digit number you want to append to column A")
    For x = 2 To lRow
    Range("A" & x).Value = Range("A" & x).Value & s
    Next
End Sub

Nothin' fancy. An option I guess.