Copy source cell down a column

The charm of usedrange is that it is exactly what it's name indicates.
The problem however is that many users do not realise that non-used rows or columns (left from of above data) are not part of the usedrange.
But in the western world there's a strong tendency to work from the left upper corner to a right lower one. So more often than not cell A1 isn't empty.

An alternative could be:

Sub snb()
  For j = 111 To Sheets(1).Cells.SpecialCells(11).Row Step 7
    c01 = c01 & "," & Cells(j, 269).Address
  Next
  Range(Mid(c01, 2)) = Cells(104, 269).Formula
End Sub