Application-definde or object-definde error

Sub Data()
Application.ScreenUpdating = False
Sheets("Berechnung nach Gruppen").Select
Cells(3, 2).Select
For y = 1 To 6
x = ActiveCell.Value
Sheets("Einstellungen").Select
Cells(3, 15).Select
Group = ActiveCell.Value
MA = 0
SUeStd = 0
SVac = 0
SAbsent = 0
While Not IsEmpty(Group)
While Group  x
ActiveCell.Offset(1, 0).Select
Group = ActiveCell.Value
If IsEmpty(Group) Then
GoTo Lastline
End If
Wend
ActiveCell.Offset(0, -5).Select
Name = ActiveCell.Value
Sheets("Abrechnungday").Select
Cells(21, 3).Select
While Name  ActiveCell.Value
            ActiveCell.Offset(1, 0).Select