Hjælp til vb kode

Denne her kode virker men den plusser 5 til det sidste tal i "A:A" kan man gøre at den plusser 5 til "DATA!B1" og bruger det til det idnr som den laver på "ID" så den ikke plusser 5 til det sidste der. så man kan sorterer på arket "ID"

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