TrySub test()Dim cFor Each c In Range("B49:B89")If c.Value <= 0 ThenRange("B" & c.Row & ":D" & c.Row).ClearEnd IfNext cEnd Sub