Copy cell data and paste on different ranges based on date

Hi I'm extremely new to this and I would like to seek assistance with my code.

Please see my code below:

Sub Copy_Cells_Loop()

Application.ScreenUpdating = False

If Range("B1").Value = "8/1/2017" Then Worksheets("Dispute").Range("C2:C76").Value = Range("H9:H83").Value

Application.ScreenUpdating = True

End Sub

So what i'm looking for is that if the value of B1 changed from 8/1/2017 to 8/2/2017, the date will be paste to another worksheet to a different range. Please help me. :(