Maybe you could try the below, it assumes the email address is in column 'F' and the word 'Invite' is in column 'G' it will look through the list and build a list of email addresses that have 'Invite' next to them and pass this to the 'RequiredAttendees' piece at the end.
Sub MeetingInvitation() Dim OutApp As Outlook.Application
Dim Outmeet As Outlook.AppointmentItem
Dim i As Long, x As Long, last_row As Long, people As String
Set OutApp = Outlook.Application
Set Outmeet = OutApp.CreateItem(olAppointmentItem)
'who will receive an invitation
last_row = Range("F" & Rows.Count).End(xlUp).Row
For i = 2 To last_row
If Range("G" & i).Value = "Invite" Then
people = people & Range("F" & i).Value & "; "
End If
Next
If Len(people) > 0 Then
people = Left(people, Len(people) - 2)
Else
MsgBox "No invites"
GoTo ender
End If
'invitation
With Outmeet
.Display
.Subject = Range("B2").Value & " - X"
.RequiredAttendees = people
.Start = Range("F3").Value & " " & Format(Range("D3").Value, "h:mm")
End With
Exit Sub
ender:
Outmeet.Delete
OutApp.Quit
End Sub
Hope this helps