Sry I should've accounted for that.
If Range("F1") = "" Then
Range("F1") = Range("C1")
Else
Range("F" & Rows.Count).End(xlUp).Offset(1,0) = Range("C1")
End If

Charles

Donny wrote:
Scratch that...

it did work... it just needed 2 things in the list before it would work
right. sorry if anyone was reworking it. THANKS!