Label update value issue

Hi Guys, seek your expertise to look at below code. Label 5-10 value (breakdown by position)will update automatically once new data entered. But for Label 34 onward (breakdown by properties)will update the value after reset the UF. You may refer to attached file. Any idea?

Private Sub UserForm_Activate()
Me.TextBox2.SetFocus
  UserForm1.Label5.Caption = Sheet4.Range("B4").Value
  UserForm1.Label6.Caption = Sheet4.Range("C4").Value
  UserForm1.Label7.Caption = Sheet4.Range("D4").Value
  UserForm1.Label8.Caption = Sheet4.Range("E4").Value
  UserForm1.Label9.Caption = Sheet4.Range("F4").Value
  UserForm1.Label10.Caption = Sheet4.Range("G4").Value
  UserForm1.Label34.Caption = Sheet4.Range("C7").Value
  UserForm1.Label36.Caption = Sheet4.Range("D7").Value
  UserForm1.Label40.Caption = Sheet4.Range("E7").Value
  UserForm1.Label47.Caption = Sheet4.Range("F7").Value
  UserForm1.Label35.Caption = Sheet4.Range("C8").Value
  UserForm1.Label38.Caption = Sheet4.Range("D8").Value
  UserForm1.Label42.Caption = Sheet4.Range("E8").Value
  UserForm1.Label48.Caption = Sheet4.Range("F8").Value
  UserForm1.Label50.Caption = Sheet4.Range("G7").Value
  UserForm1.Label51.Caption = Sheet4.Range("G8").Value
  UserForm1.Label49.Caption = Sheet4.Range("G9").Value
End Sub

If anybody can assist to amend the above code to more professional/ neat are welcome...

Thank you.