Sub Test()
Const cOBERSTE As Long = 3
With Sheets("Log-Data").Cells(cOBERSTE, 1)
If Application.CountA(.EntireRow) = 0 Then
.Value = 1
.Offset(, 1).Value = Date
.Offset(, 2).Value = Time
Else
.CurrentRegion.Cut .Offset(1)
With Sheets("Log-Data").Cells(cOBERSTE, 1)
.Value = .Offset(1).Value + 1
.Offset(, 1).Value = Date
.Offset(, 2).Value = Time
End With
End If
End With
End Sub