How do i automatically get a column of a table filled up after having other values

[Zaxest]

They are row (r) and column (c) references. So, 'c + 1' says to look in the next column and 'c - 1' says to look in the previous column.

ahh how about the (j + 2, 9 - i) in Else .Range.Text = Split(Rng.Tables(1).Cell(j + 2, 9 - i).Range.Text, vbCr)(0)
.Range.Font.ColorIndex = Rng.Tables(1).Cell(j + 2, 9 - i).Range.Font.ColorIndex
.Shading.BackgroundPatternColor = Rng.Tables(1).Cell(j + 2, 9 - i).Shading.BackgroundPatternColor
End If