VBA Identify code to make information box not appear

Hi,

The below code runs perfectly well for the 10 people that I have in my main file, I am now going to be doing same things for over 4.5k people and do not want to sit and do that for this many rows of data, essentially it is a vlookup through vba that needs to be done but cannot work it out anyone able to assist?

If Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A2").Value _
And Sheets("Data_Source").Range("G2").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A3").Value _
And Sheets("Data_Source").Range("G3").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A4").Value _
And Sheets("Data_Source").Range("G4").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A5").Value _
And Sheets("Data_Source").Range("G5").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A6").Value _
And Sheets("Data_Source").Range("G6").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A7").Value _
And Sheets("Data_Source").Range("G7").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A8").Value _
And Sheets("Data_Source").Range("G8").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A9").Value _
And Sheets("Data_Source").Range("G9").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A10").Value _
And Sheets("Data_Source").Range("G10").Value = 1 _
Or Sheets("Home").Range("A1").Value = Sheets("Data_Source").Range("A11").Value _
And Sheets("Data_Source").Range("G11").Value = 1 _
Then
Sheets("Overview").Shapes("Rectangle 11").Visible = False
Else
Sheets("Overview").Shapes("Rectangle 11").Visible = True
End If

    
    Sheets("Overview").Select