Macro to fill cells

[Loksha]

Hello everybody,
I am not creator of this macro, just found it online and modify a little to fill text from one cell to others in column:
Sub fillup()
*
Dim lLastRow As Long
Dim lCounter As Long
Dim sThisCust As String
*
lLastRow = Cells(Rows.Count, "c").End(xlUp).Row
*
sThisCust = Cells(1, "c")
*
For lCounter = 2 To lLastRow
*
If Trim((Cells(lCounter, "c")) = "") Then
*
Cells(lCounter, "c") = sThisCust
Else
sThisCust = Cells(lCounter, "c")
End If
Next
*
End Sub

Now it stopped working any idea what can be problem. Compile error: Sub or Function not defined.

I am using office 2013 and planning to go to 365. I need something very easy to copy text after I unmerge cells and I have no idea how to wright macros.
Thanks a lot for any answer.
Loksha

[xlnitwit]

Please use code tags when posting code.

Which line is shown to be in error when you run the code?