Cacher is the code snippet organizer for pro developers

Sub FillInEmptyCellWithConstant()
Dim i As Long
Dim Col As Integer
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Col = 7 To 68
    For i = 1 To Cells(Rows.Count, Col).End(xlUp).row
        If IsEmpty(Cells(i, Col)) Then Cells(i, Col).Value = "empty"
    Next i
Next Col

End Sub