Sub LisaaLoppusummaAsiakasEraPaiva()
    Dim wsLasku As Worksheet
    Dim wsLaskut As Worksheet
    Dim loppusumma As Double
    Dim asiakasNimi As String
    Dim eraPaiva As Date
    Dim seuraavaRivi As Range
    
    ' Määritetään lasku- ja laskut-välilehdet
    Set wsLasku = ThisWorkbook.Sheets("lasku")
    Set wsLaskut = ThisWorkbook.Sheets("laskut")
    
    ' Haetaan laskun loppusumma solusta H32
    loppusumma = wsLasku.Range("H32").Value
    
    ' Haetaan asiakkaan nimi solusta B41
    asiakasNimi = wsLasku.Range("B41").Value
    
    ' Haetaan eräpäivä solusta H5
    eraPaiva = wsLasku.Range("H5").Value
    
    ' Etsitään ensimmäinen tyhjä solu B-sarakkeesta (loppusummalle)
    Set seuraavaRivi = wsLaskut.Cells(wsLaskut.Rows.Count, 2).End(xlUp).Offset(1, 0)
    
    ' Lisätään tiedot laskut-taulukkoon
    seuraavaRivi.Offset(0, -1).Value = asiakasNimi ' A-sarake (Asiakkaan nimi)
    seuraavaRivi.Value = loppusumma ' B-sarake (Laskun loppusumma)
    seuraavaRivi.Offset(0, 1).Value = eraPaiva ' C-sarake (Eräpäivä)
    
    ' Varmistetaan, että eräpäivä näkyy päivämäärämuodossa
    seuraavaRivi.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    
    ' Ilmoitus käyttäjälle
    MsgBox "Laskun tiedot lisätty:\n" & _
           "Asiakas: " & asiakasNimi & vbNewLine & _
           "Loppusumma: " & loppusumma & " €" & vbNewLine & _
           "Eräpäivä: " & Format(eraPaiva, "dd.mm.yyyy"), _
           vbInformation, "Tallennus valmis"
End Sub