Sub Trip入力()
    
    ' Prepare  Sheet
    
    Worksheets("Tripデータ").Activate
    
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:M").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("E:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:Y").Select
    Selection.Delete Shift:=xlToLeft
    
    Columns("A:E").EntireColumn.AutoFit
    
    ' Insert Data
    
    carClasses = Array("軽自動車", "コンパクト", "エココンパクト", "SUV", "ミニバン", "1BOX", "エクリプスクロス", "シエンタ", "アルファード")
    
    Dim PickUp As Range
    Dim DropOff As Range
    Dim Vehicle As Range
    
    Set PickUp = Range("B2")
    Set DropOff = Range("C2")
    Set Vehicle = Range("D2")
    
    Do While Not IsEmpty(PickUp)
    
        pickUpMonth = Format(PickUp.Value, "m")
        pickUpDay = Format(PickUp.Value, "d")
        dropOffMonth = Format(DropOff.Value, "m")
        dropOffDay = Format(DropOff.Value, "d")
        carClass = Split(Vehicle.Value, "-", -1)
        
        'Find row to insert into
        pickUpRow = (33 * (CInt(pickUpMonth) - 1)) + CInt(pickUpDay) + 2
        dropOffRow = (33 * (CInt(dropOffMonth) - 1)) + CInt(dropOffDay) + 2
        
        'Find column to insert into
        carCol = getIndex(carClass, carClasses) + 4
        
        'Add 1 to location
        Worksheets("trip.com").Activate
        Set pickUpCell = Cells(pickUpRow, carCol)
        If IsEmpty(pickUpCell) Then
            pickUpCell.Value = 1
        Else
            pickUpCell.Value = pickUpCell.Value + 1
        End If
        
        Set dropOffCell = Cells(dropOffRow, carCol + 10)
        If IsEmpty(dropOffCell) Then
            dropOffCell.Value = 1
        Else
            dropOffCell.Value = dropOffCell.Value + 1
        End If
        
        Set PickUp = PickUp.offset(1, 0)
        Set DropOff = DropOff.offset(1, 0)
        Set Vehicle = Vehicle.offset(1, 0)
        Worksheets("Tripデータ").Activate
    
    Loop
    
End Sub

Function getIndex(target, Items)

    Index = 0
    I = 0
    
    For Each Item In Items
        
        If Item = target Then
            Index = I
        Else
            I = I + 1
        End If
    
    Next Item
    
    getIndex = Index
End Function