Hi All

Brilliant I can now add text in front and behind the Loop.
I now wonder is it possible to add Text in the row above and below the loop can this be done? Like below?

Image
Test 1 Test
Image/
Image
Test 2 Test
Image/

Sub Fullcells()
Dim i As Long ' always best to allocate the variable data type
For i = 12 To 22
Cells(i, 1).Value = "Test" & i & " Test"

Next i
End Sub