Hjælp til vb kode

Er der en som kan gøre at denne kode så den ikke laver et id nr efter sidste celle i kolonne A. Men tager et nr som er på ark"data;B1" og plusser 5 som koden ellers gør!?


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