Sub osszegez()
Dim osszeg As Long
Dim egeszresz As Integer
egeszresz = Int(Cells(1, 1).Value)
For i = 1 To Range("A1048576").End(xlUp).Row + 1
If Int(Cells(i, 1).Value) = egeszresz Then
osszeg = osszeg + Cells(i, 2).Value
Else
Cells(egeszresz + 1, 4).Value = egeszresz
Cells(egeszresz + 1, 5).Value = osszeg
osszeg = 0
egeszresz = Int(Cells(i + 1, 1).Value)
End If
Next
End Sub