Yes you would need to identify the calendar. The following Excel macro will work with your data and a calendar called 'Test Calendar'

Option Explicit
Sub AddAppointments()
Dim olApp As Object
Dim olNs As Object
Dim olStore As Object
Dim olCal As Object
Dim objAppt As Object
Dim lastrow As Long
Dim xlSheet As Worksheet
Dim i As Long
Dim strStart As String
Dim strEnd As String
Const strCalendar As String = "Test Calendar"

    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If olApp Is Nothing Then Set olApp = CreateObject("Outlook.Application")
    On Error GoTo 0

    If Not olApp Is Nothing Then
        Set olNs = olApp.GetNamespace("MAPI")
        olNs.logon
        For Each olStore In olNs.Folders
            For Each olCal In olStore.Folders
                If olCal.Name = strCalendar Then
                    Set xlSheet = Sheets(1)
                    With xlSheet
                        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
                        For i = 2 To lastrow
                            strStart = CDate(xlSheet.Range("B" & i)) & Chr(32) & CDate(xlSheet.Range("C" & i))
                            strEnd = CDate(xlSheet.Range("D" & i) & Chr(32) & CDate(xlSheet.Range("E" & i)))
                            Set objAppt = olCal.Items.Add(1)
                            With objAppt
                                .Subject = xlSheet.Range("A" & i)
                                .Start = strStart
                                .End = strEnd
                                .Body = xlSheet.Range("G" & i)
                                .Categories = xlSheet.Range("F" & i)
                                .ReminderSet = True
                                .AllDayEvent = False
                                .BusyStatus = 1
                                .Save
                            End With
                        Next i
                    End With
                    Exit For
                    Exit For
                End If
            Next olCal
        Next olStore
    End If
lbl_Exit:
    Set olApp = Nothing
    Set olNs = Nothing
    Set olStore = Nothing
    Set olCal = Nothing
    Set objAppt = Nothing
    Set xlSheet = Nothing
    Exit Sub
End Sub