.Cell Value with Multiple destinations

Hi late nighters!

I am trying to take a value from a cell and put that value into two different columns.. I have tried setting it as a variable.. I have tried using the Range function.. I cant seem to get it to work..

The part of my code in reference:

Please Login or Register  to view this content.

I want:
Sheets("r").Cells(25 + i, 26).Value to be Active Sheet cells: .Cells(24 + i, 5) and .Cells(24 + i, 252) (if the "---" value)
If not the "--value" then:
Sheets("r").Cells(25 + i, 27).Value to be Active Sheet cells: .Cells(24 + i, 5) and .Cells(24 + i, 253)

What am i doing wrong?