---

Sub TeeKaikki()

    Dim ws As Worksheet
    Dim r As Long

    Set ws = ActiveSheet

    ' Päivät 1–31
    For r = 14 To 44
        ws.Cells(r, "A").Value = r - 13
    Next r

    ' Lämpötilaero = ylin - alin
    For r = 14 To 44
        ws.Cells(r, "D").Formula = "=B" & r & "-C" & r
    Next r

    ' Формат температуры
    ws.Range("B14:D44").NumberFormat = "0.0"

    MsgBox "Valmis! Päivät ja lämpötilaerot täytetty.", vbInformation

End Sub