如何相对于按钮指定宏（EXCEL）

Question

我需要运行一个宏，在宏指定的按钮下面添加一行，并相对于它下面的行填充它。我必须将此按钮用于几个不同的类别。我的问题是我需要在运行宏之前选择按钮所在的单元格才能使其工作。关闭相对引用的问题是我需要在我的电子表格中插入多个这些按钮，这将使我的工作非常耗时。

作为参考，我的第一个按钮当前位于单元格D15中。这是我为此按钮运行的代码。

Sub fortheinternets()
'
' fortheinternets Macro
'

'
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
    .PatternTintAndShade = 0