Add Columns to Code

Hello,

I would like to add columns 8 and 9 to the below code so that column 7 is not included. The line is ' For ApptCol = 4 To 6'

Can this be done?

The reason I want to do this is so the duration on the Schedule sheet is calculated from the start time to end time.

Sub Appt_Load()
With Schedule
    If .Range("B9").Value = Empty Then
        MsgBox "Please select a correct appointment"
        Exit Sub
    End If
    ApptRow = .Range("B9").Value
    .Range("E3").Value = Appts.Range("C" & ApptRow).Value 'Add in Contact Name
    For ApptCol = 4 To 6
        .Range("E" & ApptCol + 1).Value = Appts.Cells(ApptRow, ApptCol).Value 'Add in Appt Details
    Next ApptCol
End With
Schedule.Range("E3").Select
End Sub