datum in markierten Bereich

Sub markieren()
Dim c As Range, ErgBereich As Range
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("C1:C" & laR)
If c.Offset(0, -1).Value <> "" Then
Set ErgBereich = c
Exit For
End If
Next c
If ErgBereich Is Nothing Then
Exit Sub
Else
For Each c In Range("C1:C" & laR)
If c.Offset(0, -1).Value <> "" Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
Next c
ErgBereich.Select
Set ErgBereich = Nothing
End If
End Sub