Macro para pasar datos por una celda

Buenos días,
estoy intentando pasar un conjunto de números de identificación que tengo en excel (B2:B1153 de hoja "Assets") por una celda (c14) en concreto de otra hoja (DCF Valuation) para, una vez tratada la información asociada a esa ID, copiar el resultado obtenido (C26) junto al mismo ID original en (AV2:AV1153).
He escrito el siguiente código de VBA pero no lo consigo. Muchas gracias por la ayuda de antemano.
Santi
Sub ValuePortfolio()
Dim R As Integer
Dim J As Integer
Dim S As Variant
Dim M As Range
Dim A As Variant
Dim Assets As Range
Dim DCFValuation As Range
Dim I As Long
Worksheets.Item(2) = Assets
Worksheets.Item(4) = DCFValuation
Assets.Activate
For A = 2 To 1153
Assets.Cell("B", A).Value = J
DCFValuation.Activate
DCFValuation.Select.ActiveCell("C14").Value = J
DCFValuation.Select.ActiveCell("C26").Value = S
Assets.Activate
Assets.Select.ActiveCell("AV", A).Value = S
Next A
Range("A1").Select
End Sub