Inserting weekly information with a userform

Good Morning

I'm working on a sreadsheet for inserting and collating information for a fleet of vehicles.

I have userforms for inserting various pieces of information when the vehicle is new or leaving the fleet.

I would like to use a userform for inserting weekly information. I know how to insert the basic information in columns but I'm stumped for working in rows and with inserting information at different times.

Could someone please help me with the code, I have attached a sheet showing the kind of layout I am thinking off. The vehicle registration will be picked up from another spreadsheet

Thanks for your help

This is one way

royUK

Once again thank you for your help,,,,,still learning an this will point me in the right direction for figuring out what I want,,,,, one last question on the spreadsheet.

Rather than insert a list of weekendings into the sheet, what would I need to do for the user to insert the weekending and the sheet automatically put it into the next empty cell

You would need a textbox to input the date into. Replace the combobox that holds the dates with a textbox then delete all the old code, replace it with this

Option Explicit
Dim rHeaders   As Range
Dim rVehicles  As Range
Dim C          As Long
Dim R          As Long
Private Sub CommandButton1_Click()
    With Me
        R = .ComboBox2.ListIndex + 3
        If IsEmpty(Cells(2, 2)) Then C = 2
        Sheet1.Cells(2, C).Value = CDate(.TextBox4.Value)
        Sheet1.Cells(R, C).Value = .TextBox3.Value
    End With
End Sub


Private Sub UserForm_Initialize()
    Dim cl     As Range
    Set cl = Sheet1.Cells(2, Columns.Count).End(xlToLeft)
    Set rVehicles = Sheet1.Range(Cells(3, 1), Cells(Rows.Count, 1).End(xlUp))
    With Me
        If Not IsEmpty(cl) And IsDate(cl.Value) Then
            .TextBox4.Value = Format(cl.Value + 7, "dd/mm/yy")
            C = cl.Column + 1
            Cells(2, C).Value = cl.Value + 7
        Else: MsgBox "Enter date "
            .TextBox4.SetFocus
        End If
        .ComboBox2.List = rVehicles.Value
    End With
End Sub