Add a string to a range columns

[Vijayarc]

Hi Ninjas

Below and attached sheet is my sample database, where i need to add "Days" at end of numbers in each cell in all columns.
i have code that works for A columns , i want the code that work at all column range .. i tried range of ("A:H") But it not woking
please help and Thanks in advance !!!

Sub AppendToExistingOnRight()
Dim LastRow As Long, i As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
 For i = 2 To LastRow
If Range("A" & i).Value <> " - " Then
Range("A" & i).Value = Range("A" & i).Value & " Days"
 End If
Next i
End Sub

Global Trade	IS-ACCE	IS-BDS	IS Prime Brokerage	IS-Depository Receipts	KYC	LATAM Chile	LATAM-Argentina
No Relationship - 7 Days	No Relationship - 3	Rejected - 160	-	No Relationship - 1	Not Started -	-	-
No Relationship - 3 Days	Completed - 8	Rejected - 119	-	No Relationship - 9	Not Started -	-	-
No Relationship - 2 Days	No Relationship - 7	Rejected - 224	-	No Relationship - 2	Not Started -	-	-
No Relationship - 2 Days	No Relationship - 7	Rejected - 224	-	No Relationship - 2	Not Started -	-	-
No Relationship - 6 Days	No Relationship - 8	No Relationship - 8	-	No Relationship - 1	Not Started -	-	-
No Relationship - 8 Days	No Relationship - 6	Rejected - 124	-	No Relationship - 5	No Relationship - 3	-	-

 

[chirayu]

Sub AppendToExistingOnRight()

Dim LastRow As Long
Dim Rng As Range
Dim SubRng As Range

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A2:D" & LastRow)


For Each SubRng In Rng
    If SubRng.Value <> " - " Then
        SubRng.Value = SubRng.Value & " Days"
    End If
Next SubRng

End Sub