Zelle variabel gestalten

Ich habe wahrscheinlich eine eher leichte Aufgabe für euch ;O)

Ich möchte in diesem code die Zelle H2:H3 variabel gestalten.

Sub link()

Dim anzahlzeilen As Integer

Range("a1").Select
Set tbl = ActiveCell.CurrentRegion

anzahlzeilen = tbl.Rows.Count

variable1 = ActiveCell.Offset(anzahlzeilen - 1, 7).Select


Selection.AutoFill Destination:=Rang("H2:H3"), Type:=xlFillDefault

End Sub

Hoffe bzw. glaube ihr könnt mir helfen.

mfg Marc