variable bei Formel

Sub markiert_letzte_beschriebene_Zelle_SpalteO_02()
Dim ws As String
Dim lZ As Long
Dim s As Long
Dim aZ As Object
Sheets("Tabelle2").Select    'wechselt zu Tabelle Unterkonten
Application.Goto Reference:="test19" 'markiert gewähltes Unterkonto
With ActiveSheet
s = Selection.Column
lZ = .Cells(Rows.Count, s).End(xlUp).Row                        'ermittelt letzte  _
beschriebene Zelle in Spalte "s"
.Range(.Cells(lZ, s), .Cells(lZ, s)).Offset(0, 5).Select    'markiert letzte  _
beschriebene Zelle in Spalte O
MsgBox Selection.Row
MsgBox Selection.Column
End With
'ws = Worksheets("Tabelle2")
Set aZ = Selection
Sheets("Tabelle1").Select
Range("C6").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[-1]C[-1]"
End Sub