Sub Start()
    Sheet1.Range("B1").NumberFormat = "dd.mm.yyyy"
    Sheet1.Range("B1") = Date
    Sheet1.Range("C1").NumberFormat = "h:mm:ss"
    Sheet1.Range("C1") = Time
End Sub

Sub Stopp()
    Sheet1.Range("B2").NumberFormat = "dd.mm.yyyy"
    Sheet1.Range("B2") = Date
    Sheet1.Range("C2").NumberFormat = "h:mm:ss"
    Sheet1.Range("C2") = Time
    
    Sheet1.Range("C3").NumberFormat = "h:mm:ss"
    Sheet1.Range("C3") = Range("C2") - Range("C1")
    
    Worksheets("Michal_Kluba").Activate
    Sheet3.Columns("A").NumberFormat = "dd.mm.yyyy"
    Sheet3.Columns("B").NumberFormat = "h:mm:ss"
    
    Sheet3.Range("A3").Select
    Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Value = Sheet1.Range("B1")
    
    Sheet3.Range("B3").Select
    Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Value = Sheet1.Range("C3")
End Sub

Sub Send()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "dominika.ostrowska@capgemini.com"
        .Subject = "TIMERECORDER Michal Kluba " & Range("B1")
        .Body = "Start time: " & Range("C1").Text & vbNewLine & "End time: " & Range("C2").Text & vbNewLine & "Total hours: " & Range("C3").Text
        .Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Sub Send2()
    Dim BiezacySkoroszyt As String
    Dim BiezacyArkusz As String
    Dim NowySkoroszyt As String

    BiezacySkoroszyt = ActiveWorkbook.Name
    NowySkoroszyt = "Michal_Kluba" & ".xls"
        
    Set nowy = Workbooks.Add
    Windows(BiezacySkoroszyt).Activate
    nowy.SaveAs Filename:=NowySkoroszyt
    ActiveWorkbook.Sheets("Michal_Kluba").Activate
    ActiveSheet.Copy Before:=Workbooks(NowySkoroszyt).Sheets(1)
    nowy.Save
    ActiveWorkbook.SendMail Recipients:="michal.kluba@capgemini.com", Subject:="Michal Kluba MONTHLY REPORT"
    nowy.Close

    Application.ScreenUpdating = True
    Windows(BiezacySkoroszyt).Activate
End Sub