Thanks. I had changed that to the range I'm using in my workbook, which is Sheets("percent").Range(trial_CR). Here is the code:.

For trial_row = 8 To 107


trial_st = col2_st + CStr(trial_row)
trial_end = col2_end + CStr(trial_row)
trial_st_v2 = 109 + Sheets("input").Range(trial_st).Value
trial_end_v2 = 109 + Sheets("input").Range(trial_end).Value
If trial_end_v2 = 109 Then Exit For
trial_CR = "B" + CStr(trial_st_v2) + ":" + "B" + CStr(trial_end_v2)


Sheets("percent").Range(trial_CR) = Sheets("input").Range("F" + CStr(trial_row)).Value



'For Each cell In Sheets("percent").Range("B111:B25000").Cells
'If Intersect(cell, Sheets("percent").Range(trial_CR)) Is Nothing Then
'cell.ClearContents
'End If
'Next cell



For Each it In Sheets("percent").Range(trial_CR)
If Intersect(it, Sheets("percent").Range("B111:B25000")) Is Nothing Then
If IsEmpty(b_01) Then Set b_01 = it
Set b_01 = Application.Union(b_01, it)
End If
Next


b_01.ClearContents
'
'
Next trial_row