VB Kode til dansk dato

Public Sub DataTilID()
    With Worksheets("Løb").Range("C5:S5")
    vdB = .Value
    .ClearContents
    End With
   
    With Worksheets("ID")
      r = .Cells(Rows.Count, 2).End(xlUp).Row + 1
      .Cells(r, 2).Resize(1, 17).Value = vdB
      ReDim vdB(1)
      vdB(1) = .Cells(r - 1, 1).Value + 5
      .Cells(r, 1).Value = vdB
    End With

    Worksheets("Løb").Range("B5").Value = vdB

End Sub