hey

i have a program that looks like this:

Sub B()
Dim rng As Range, rng2 As Range, cell As Range

Set rng = Range("F4.F66")

For Each cell In rng
If cell >= 1 Then
******

End If
Next cell

Set rng = Nothing
Set cell = Nothing


where the stars are i need code that will take the data in column b,c,d,e,f,g of the cell that is selected and copy it into b101. any help?

Steve