Letzten Zeilen Wert mit Variabel Zeile

Sub Let()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End(xlToLeft).Column,  _
Columns.Count)
MsgBox Cells(2, LoLetzte)
End Sub

jetzt möchte ich gern die Zeile variabel halten und in folgendes Makro einbauen:

Sub LetzterWert()
Dim LoLetzte As Long
Dim zelle As Range, Bereich As Range
Dim x As String
'letzter Zeilenwert der 2.Zeile
LoLetzte = IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End(xlToLeft).Column,  _
Columns.Count)
MsgBox Cells(2, LoLetzte)
x = Sheets("Tabelle1").Range("d65536").End(xlUp).Address
Set Bereich = Range("D4:" & x)
For Each zelle In Bereich
If zelle.Value = "*" Then
'MsgBox Cells           letzten Zeilenwert der entsprechenden Zeile
End If
Next
End Sub

Hat jemand dafür eine Lösung.
Vielen Dank im Voraus!
MFG Andre