Macro To Paste Data After Checking Text In Cell

I am writing a macro that will allow me to copy all the data in a set range (A2 and below) after checking that B1 contains the text "Year_id".

Right now, I am able to copy all the information, and paste it onto "Sheet 4". I am unable to code for the part where the macro would check for the text. The code that I have (for copying-pasting the date) is below.

Any code that would check the information in B1 into this macro code below:

Code:
Sub Copy_Allinfo()

Dim Sht As Worksheet
Dim Rng As Range

For Each Sht In Sheets
If Sht.Name = "Sheet4" Then

[Code] ........