Konichiwa, VBA to Edit Current Data with ID number assigned.

You should have used the DeleteMe macro as a starting point. It finds the row in the database that matches the ID. Then instead of deleting the row, you update the values.

Sub Editme()
'declare the variables
    Dim ID As Range, c As Range, orange As Range
    Dim lastrow   As Long
    'set the object variable
    Set ID = Sheet2.Range("F3")
    'stop screen flicker
    Application.ScreenUpdating = False
    lastrow = Sheet4.Range("B" & Rows.Count).End(xlUp).Row
    Set orange = Sheet4.Range("B9:B" & lastrow)
    'find the value in the range
    For Each c In orange
        If c.Value = ID.Value Then
            'edit the row
            c.Offset(0, 0).Value = ID.Value
            c.Offset(0, 1).Value = Sheet2.Range("V3").Value
            c.Offset(0, 2).Value = Sheet2.Range("V4").Value
            c.Offset(0, 3).Value = Sheet2.Range("V5").Value
            c.Offset(0, 4).Value = Sheet2.Range("V6").Value
            c.Offset(0, 5).Value = Sheet2.Range("V7").Value
            'c.Offset(0, 6).Value =Sheet2.Range("AE3").Value
            'c.Offset(0, 7).Value =Sheet2.Range("AE4").Value
            'c.Offset(0, 8).Value =Sheet2.Range("AE5").Value
            'c.Offset(0, 9).Value =Sheet2.Range("AE7").Value
            c.Offset(0, 10).Value = Sheet2.Range("AM3").Value
            c.Offset(0, 11).Value = Sheet2.Range("AM4").Value
            c.Offset(0, 12).Value = Sheet2.Range("AM5").Value
            c.Offset(0, 13).Value = Sheet2.Range("AM6").Value
            c.Offset(0, 14).Value = Sheet2.Range("AM7").Value
            'c.Offset(0, 15).Value =Sheet2.Range("AZ3").Value
            'c.Offset(0, 16).Value =Sheet2.Range("BD3").Value
            'c.Offset(0, 17).Value =Sheet2.Range("AZ4").Value
            'c.Offset(0, 18).Value =Sheet2.Range("BD4").Value
            'c.Offset(0, 19).Value =Sheet2.Range("AZ5").Value
            'c.Offset(0, 20).Value =Sheet2.Range("BD5").Value
            'c.Offset(0, 21).Value =Sheet2.Range("AZ6").Value
            'c.Offset(0, 22).Value =Sheet2.Range("BD6").Value
            'c.Offset(0, 23).Value =Sheet2.Range("AZ7").Value
            'c.Offset(0, 24).Value =Sheet2.Range("BD7").Value
            Exit For
        End If
    Next c
    'et go home
    Sheet2.Select
    'update the calendar
    Bookings
End Sub

You're welcome. Thanks for the feedback.