VBA：如何根据动态列标题引用单元格？

Question

我在下面写了这个代码，发现转到右边的空列，在第1行输入“Count”，然后在第2行输入一个公式并将其自动填充到表格的底部。

我的问题是被引用的单元格在我的excels中发生了变化。在下面的代码中它转到R2C4，但有时它在R2C3下。但是，这些列的标题始终相同（称为“用户”）。

有没有办法对此进行调整，以便查找该标题，并且该公式适用于从第二行开始的该列？

Sub countUniques() 'Used to coutn unique users per week for Active Users
    Dim lcol As Long
    Dim Lastrow As Long

    lcol = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column
    Cells(1, lcol + 1).Value = "Count"
    Lastrow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row

    Cells(2, lcol + 1).FormulaR1C1 = "=IF(SUMPRODUCT((R2C4:RC4=RC4)*(R2C4:RC4=RC4))>1,0,1)"
    Cells(2, lcol + 1).Select
    ActiveCell.AutoFill Range(ActiveCell.Address & ":" & Left(ActiveCell.Address,       Len(ActiveCell.Address) - 1) & Lastrow)
End Sub