This is my initial code out of confusion with how Worksheet_Change works
Private Sub Worksheet_Change(ByVal Target As Range) With ThisWorkbook.Sheets("Home")
If Target.Address = "$B$4" And Not IsEmpty(.Range("B4", "B1", "B2").Value) Then
.Range("C1").Value =...